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THIS'N THAT 



CoCo 2 DUk Ccntroller 

when we made our "First Look" 
Report on the new Radio Shack Color 
Computer 2 last month, we discussed 
the fact that it has no +12 Volt DC 
Line, which would cause problems with 
the Disk Controllers, because they 
require the +12 volts for the "write 
Pulse Width" reference voltage and as a 
power source for the WD1793 controller 
Chip. The information we had at that 
time indicated that a 5 Volt Disk 
Controller would not be available, so 
we speculated that the normal 
procedure would be to use a Radio 
Shack Hatti-Bak for the Disk Oxitroiler 
with the Oolor Computer 2. 

We are nappy to say that there WELL 
b« a 5 volt ONLY Disk Controller 
available shortly; in feet, as soon as 
the 'in stock' Controllers are gone, 
that is the only one that will be sold 
by Radio Shack (it will work with ANY 
of the Color Computer Series, because 
they ALL have at least the +5 Volt Line 
going to the Cartridge Slot). Our 
information is that the 5 Volt 
ControUers wiU be in the 'off-white' 
cases that match the Color Computers 
now being sold. So, OFFICIALLY, there 
WILL be a Disk Controller from Radio 
Shack for the CoCo 2's. 

While on the subject of Disk 
Controllers for the Color Computers, we 
have seen a few 'third party* units 
advertised, but have only seen one, so 
far, to report on. That is the RDC-1 
from F ft D Associates, 1210 lOdd Hoad, 
Hew Plymouth, OH 45654. F & D has 
been supporting the SS-50 Bus 
community with PC Boards and, in a few- 
cases, Kits, for a few years, and have 

Contintwd on p#j* 22 
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LINKING 
LOADER 



for both 
BS DOB and RS FLEX 

Copyright (c) 1983 by Roland Waggoner 

and Computer Publishing Inc. 

All rights reserved 

DUHJUIUTiUI 

¥he soopa or this article is to 
discuss programming in Assembly 
Language (or any 'language) using 
program modules, alternate ways of 
using program modules, and a 
description and listing of a Loader and 
a Linking Program. 

There are at least three reasons 
for breaking a large program up into 
smaller modules. Small modules are 
easier to understand than a long 
program. It is usually easier and 
faster to break any complicated 
project up into smaller, simpler 
projects. You will save memory by 
putting repeated code into a 
subroutine . General purpose routines 
can be put into a Library and used by 
many programs. You won't have to 
rewrite the routine for every new 
program - 

There are a number of ways to use 
subroutines. BASIC programmers often 
have to include the code in the 
program. You can do that for other 
languages as veil. This is OK for 
subroutines that are specific to the 
application, and all the source code is 
in one place for examination. However, 
if there are many subroutines, the 
source code could become quite large, 
especially for assembly language 
programs. 

Continued on p*9* 5 
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MICR0B00KS 

A SMALL BUT HARDWORKING BOOKKEEPER 
16K, Ext. Basic 
THE EDBl 



I was a little amused, some time 
ago, when I saw a letter to a computer 
magazine editor asking for business 
programs for the 4K Color Computer . 
But, HICROBOOKS has become almost 
that. In its' shortest form the 
program could get about 100 entries 
into a 4K CoCo. At the same time it 
will do a pretty fair job with the 
books of a small business, given 
certain concessions. 

Contlruwt on p»a* 9 
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Take a Christmas 
vacation to the 
Arcade Isle . . 



Joystick 
Adapter 



fromWCO 

You can us* any two. Atari compatible joysticks with your 
TR S Color Computar using tha Wico Adapter. Can also b« 
used wMti Joy board or Joy Sensor. And rl you need a 

longer caWa. g#l etthar a six c* h**lv* toot length exten- 
sion cord 

#34243 CoCo Adapter SI 7. 95 
#35223 Six Ft Ext $4-05 
#41296 TWelve Ft Ext $7.95 



The 

Joyboord 



tromAmigo 

Wo sol ovar fifty type* of joystick* but eu la lh» moat 
unusual All a* your OLD games become 8 new challenge 
when you use your whale body lo play ' Yea. your entire 
body Is at the controls — you lean and bit in e poWbt* 
osrecoons to glide, dive and aoom through the universe of 
computer games. Heavy duty 1 lor up to 230 lb* and tha 
special Daw allows use on win uaiiy all surface* 

The loyooard art I work wait ttte Goto* Computar with trio 
VWeo Adapter (a*e above). 

#43322 Joyboard $49.95 



Joy Sensor 



frwnSuncom 

Mo mora Wateps. no mere eere hands. This la ima aheateaa 
"Joystick" wrach uses a touch aornALve panel. R atao m- 
duoea a rapid fire "button ' and you can flip a awftch lo play 

in fourdrad-ons. not ihe usual Or-oW (O'*4flO*0«™l»S] "» 

brand new and *ill make a parted alt 

#31059 Joy Sensor $34.95 



Wears so svro mat you will like the 
Joy Sensor, we wilt give a tree 30 day 
trial in you/homo if you dvcide you 
(forr'ttiko if, then fust return ft in saf&bie 
condition end we wW giveyoua refund, 
no questions asked 



The Frog 



YOUR COMPUTER JUST GOT 
A WHOLE LOT SMARTER... 

Lets 1ace it. your home computer is. 
only as smart as me software you use. 
Where do you finct enough programs 
to make It more intelligent? At The Pro- 
o/om Stored Nowhere else can you find 
more programs —to communicate, to 
educate and entertain. This is just a 
sampling — coll or come into one or 
our stores to find out how to make your 
computer smarter 1 



Buzzard 
Bait 



Zaxxon 



Official A/code VenMon from 

OataSoft 

Now lor your home, combines 3 dirnonswnal eflecte, 

unique color graphics and raikatic sound effects. Arcad e 

action white you maneuver your snip through a battlefield 

of enemy missiles, guns and planes lo meet you/ match in 

the deadly Zaxxofl Robot armed wrm a Whet homing 

devtce. 

#35963 32k Tape $39.95 

#30328 32k Disk $39.95 
MOW 20% OFF 
UNTIL NOV. 30 
FOR $3196 



by Ruobr OreM from Tom Mh 
You' fty from cloud to cloud atop your bird defending 
yourself from savage buuards- Sky high exaiemeni in this 
high resolution arcade hft. 

#29708 32k Tn po $27.95 
#29854 32k Di»k $30.95 

Lunar 
Rover 
Patrol 

from Spocfrff/A»*oc/o^e« 

Another arcade special where you bump along trw moon's 

»udac» firing at a borage obstacles Machine flanguag* 

with sound, bombs, missile*, tanka and more. 
#3546$ 32fcTipo $21.95 



Flight 



M 



The King 

from Ton Mix 

How high can y$u climb? Use the pretftce gem* to leaf 
your ettas Become an eitpert el this arcada atyte game 
fitted with eliciting sound and realistic action, For 1 or 2 
pUy«rs. There era 4 screen*; barrels, pine, jacks and con- 
veyors. Reach the rummer If you're last and strong. 

#43029 32k Tape $26.95 



Cubix 



iypm Tom M<* 

Cross the frog across the busy highway to the safety of the 
median. The swollen river with rwJdan hazards is the nevl 
parriar in this arcade wonder. 

#261 32 16k Tape $27.95 

#26907 16k Disk $30.95 " 



from BjMBanafAaeflfa/eJaa: 

New lull featured arcade quality game that has multiple 
mazes, flounce your man through the cube mexa avoiding 
the sneke and tumbling balls. Joystick expenence necea- 
aary for tfia Hi-Res. last action arcade classic. 

#32049 32k Tapo $24.95 
#18537 32k Disk $26.95 



Of Hooper * Bornm from POciuy floor 

Fantastic rn-rat graphic flight simulator has 2 apeeda. 4 
flifftc iilty levels, views from top and side, rnstrument panel 
and realistic (oysUch oontrol. Don't craah or nave to "go 
aroundf Can you land on tha runway to hear tha synthe- 
sized voice fy^'peffectlandlnar Requrrei Enanoed Ba- 
ste 

#33556 32k Tap« $19.95 

#30115 32k Dink $24.95 

NOW 20% OFF UNTIL NOV. 30 FOR 

$15.96 AND $19.96 

Moon Shuttle 

OBcto'Arood* vevston from Qolotort 

Ptot your moon shuttle to meet your oeauny — The Prince 
of Dvkneaa. Out mansuver spinning roeketa, dodge life 
threatening man-o-wars. meteors, bomb launchers and 
eipandofi. Suddenly your flight bex»mesrnore penkxis as 
enemy forces muajpty, Teat the outer limits of your rnabnet 
fgr survival. 

#27302 Tip* 6 Disk $29 95 

Also available 
Dal lai Quest 
#40352 Tape 539.95 



Over 2S00 Programs for TRS-80, ATARI 400/800. APPLE. IBM. VIC 20 & C64 



This is on*/ a sampling of our sensational softwarei 
CALL 600-424-2736 FOR Oil » NEWEST PRODUCTS 
UNDCOOED? NEED TO fUT A GIFT? The Program Store gift certificate may be purchased In any amount over $fMX>. Grve the perfect flrffl 

VISIT OUR STORES ******* n m. m » i , way** , ttj 

U*Alm*un™.mnat<>m\ii*f*.,imtton.lQ HwaatMaJI. Mi MM lll n aW,aasaaaa\iW 

le^e^mtmmktm^mm mm * mstsm*^™****-***"-** 

rtavsri'Satiam.Hrjunei^ afr a ea ssasa asa' Wall. 91 M Hat. &■■■!■■ , rtt 

KeWliBjsast ■•■0 Miaip B irt—l. M Waeaaaiairy U e t . tear* V aali i , H 

wmfmtnnifwtumtnu. kkmh m timet W mm Mr*, Ml Qsmmenm fern, nsmm M n ihaj, w 

temmm,mnimemmm,n«Trm.H* z**wn*w,i*n*mm******"* + >* 

■aaaajaal WeX Wat I Vrytttaf w. CH u ■>■> . «J %em temn mm n* C»a«».m 

lb Ontef Call Toil Free 800-424-2738 For IntonniTtton Call <703) 556-9778 

MaJlordeni.' List computer Hem Heme qry. lapevonsk. rorn. doc*, once. jhipoin^.lijA total msff 

Send choc* or MO. for total purchas* rjajs K (X) sf^wno and h ■"" 

Charge cards— include all embossed inforrnaoon List name, addreas. city, state, zip A phone 

SEND 2SC FOR OUR COMPLtfi COiOff COMPUTE* CATALOG 
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Build performance 
into your system 

with OS-9 software tools 



Unix* -based multitasking, modular, 
and versatile: these key features 
are some of the reasons why more 
6809 computer manufacturers 
have selected OS-v as their stan- 
dard operating system than any 
other And OS- 9 has been put to 
work by thousands oi users in al- 
most every conceivable computer 
application in business, science, in- 
dustry education, and government. 
Your operating system should not 
>^ ^t £cT* i 9*' i?s*w5^r. vo'J and 

your computer. OS-9 is very iriend- 
■ly and easy to use. Its modular 

' structure makes it easy to cus- 
tomize, plus its comprehensive 
documentation shows you exactly 
how to interlace it to just about any 
I/O device. 

OS-9s advanced ieatures un- 
leash the performance potential ot 
almost any 6609 computer — large 
or small. In many respects the OS-9/ 
6609 cccnbination Is more powerful 
than many minicomputers! 

There are two basic versions ot 
OS-9. Both have the same basic 
features and capabilities. OS-9 
Level One runs on small to 
medium sized systems having up 
to 64K memory The Level Two 
vwsion runs on medium to large 
sine systems having memory man- 
agement hardware and up to 
1 megabyte ot memory; and In- 
cludes record and tile locking lor 
multiuser database applications. 

Hera are Just a tew reasons why 
you should Insist on 05-9 tor your 
microcomputer system. 

Over 40 utility command's 

Friendly *ShelT command 
interpreter 

Tree-strucrured multilevel Hie 
directories 



Full timesharing support with 
log-in and hie security 

Fast, secure random and 
sequential access tiles 

Comprehensive English lan- 
guage error messages 

Compact real-time multitasking 
executive 

Hardware or software memory 
management 

Device independent inter rupt- 
driven I/O 

Fully DOMnhlo tnr small rontrol 

systems 
Standard versions available lrocn. 
manuiacturers ot most popular 

6809 computers 

OS-9 PASCAL Language 
Compiler 

most complete and versatile 

PASCAL available far the 6809 
capable oi generating P-code 

for Interpretive execution while 

debugging OR 
highly optimized 6809 assembly 

language source code output 

tor maximum speed 
"virtual memory" P-code 

Interpreter lets you run large 

PASCAL programs 

CU COBOL '"Compiler 

Ideal tor most demanding 
business applications 

features ISAM. Debug, ACCEPT/ 
DBPLAy and Interprogram 
Communications modules 

retains lull compatibility with 
CP/M software 

meets ANSI 1974 Level One 
COBOL standard and Is 

GSA. certttied 
Also avaflable-FORMS 2 auto-, , 
matic program generator for 
easy into ratlve design ot 
screen oriented applications 



IASIC09" Structured Bate 
Interactive Compiler 

fastest and most comprehensive 
full Basic language available 
tor the 6809 

combines standard Basic with 
the best features of PASCAL 

features compiler speed, 
interpreter friendliness and 
superlative debugging 
facilities 

option available: Run B...a 

rtime system lor 




iiier 

5le mentation ot the 

UNTjt'NliRion 7 C language 
Includes INT. CHAR. SIGNED. 

UNSIGNED, FLOAT AND 
"■ data types, structures. 

standard C library ai 

preprocessor with 

definitions^ J^ 
generates tulry 

assembly 

code output 

W 

For more intorma^c^'^pftTact your 
computer »S3pfi©t'<*P ' 



MIC 






Micro ware System* 

5835 Grand 
Iowa 6031 




«H 



K»' 



*Unli b a trademark oi Bell 

. ""CIS Cobol is a 
tradeTnaEk af J Jdk»JEQcus. Inc. 
QB4"-and 

Motorola. "fee.. :j '• 
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COPYNEW 



caeiaw - a mac axnr ununr 

Peter A- StarX 

Star-Kits 

P. 0. Box 209 

Mt. Kisoo, NY 10S49 

Although the Color Computer's disk 
system has all the carmands needed for 
use with Basic, their command 
structure is sometimes a bit awkward. 

Take, for example, the COPY 
command. To copy a file from one disk 
to another requires that you specify 
the full file name of both the source 
file and the destination file. 
Moreover, if a file with the same name 
already exists on the destination disk, 
you get an error message and must 
start all ever again* 

While this is not too bad if all you 
want to do is cqpy a single file, it is 
downright annoying if *ou want to copy 
several files at once. Which leads me 
to the reason for writing a (fairly} 
simple Basic program called OOPOBf- 

CORstBI requires that you have two 
disk drives. To copy a set of files 
from one disk, simply place the source 
and destination disks into two 
different drives, ROH COPYNEW, and 
enter the drive numbers of the source 
and destination drives when requested. 

Given the drive numbers, COPYNEW 
reads the directory on track 17 of the 
destination disk and copies it into 
arrays in memory. In this way it 
determines which files are already on 
the destination disk. 

Next, it reads the directory of the 
source disk- Aa each directory entry 
' s Scanned, COPYNEW checks to see 
whether a file by that name already 
exists on the destination disk. If the 
name is found in the destination 
directory, COPYNEW also checks a byte 
in the directory entry which indicates 
how many bytes there are in the last 
sector of the file, and compares it 
with the corresponding byte on the 
source disk. 

There are now three possibilities: 

1. The file name already exists on 
the destination disk, and the number of 
bytes is the same* In that case 
COPYNEW simply displays the file name 
on the screen and tells }Ou that the 
file already exists, and then goes on 
to the next file. 

2 ■ The file name already exists on 
the destination disk, but the number of 
bytes is different- Now COPYNEW 
displays the file name, but points out 
that the files appear different and 
asks whether you want to delete the 
old file on the destination disk and 
substitute the one from the source 
disk. You need just answer Y or N # 
and COPYNEW takes over. 

3 . The third possibility is that the 
file name does not exist on the 
destination disk, in which ease COPYNEW 
tells you so, and asks whether you'd 
like to copy it. Simply answer Y or N. 

It's a fairly simple and fast matter 
to go through the entire directory and 
just answer Y or N to have aa many 
flies copied as ysu'd like. 

The test to compare whether two 
files are identical is only a rough one, 
and not very reliable. It is quite 
possible that two files are completely 
different, and yet the number of bytes 

4 



in their last sector is the same. The 
only foolproof way to compare the two 
would be to read each one and do a 
byte— by— byte comparison; a process 
which would take quite a bit of time. 
I therefore settled on the above 
method, knowing full well that 
occasionally it might make a mistake. 
From the point of view of prctaabilityj 
there is one chance In 256 that two 
different files will have the same 
number of bytes in their last sector. 

There is one rule I always follow to 
reduce this chance- Whenever I update 
any program, I always make sure to make 
it just a bit longer or shorter, n 
that way, if I ever use CCPYNEW on two 
disks that have different versions of 
the same program, I will notice the 
difference and make a conscious effort 
to determine which is older and change 
it. 

10 CLS: VERIFY ON 

20 PRINT "COPYNEW - (C) 1962 BY 

PETER A. STARK." 
30 CLEAR 2000 

40 DIM DN$(68).L<68) 'VESV FILE 
NAMES AND LENGTHS 
50 INPUT "COPY PPOM DRIVE NUMBER 

"? Dl 

60 IF D1<0 OR Dl>3 THEN 50 ELSE 

70 

70 INPUT "COPY TO DRIVE NUMBER"; 

D2 
80 IF D2<0 OR D2>3 THEN 70 ELSE 
90 

90 IF D1=D2 THEN 50 
100 DN=0 

110 S1$= M :"+RIGHT$(STR$(D1),1) 
120 S2$="!"-*-RIOrr$(STR$(D2),lD 
130 'FIRST, READ FILE NAMES C« D 
ESTINATION DISK 
140 FOR SE-3 TO 11 
150 DSKIS D2, 17,SE,A$,B? 'READ N 
EXT DIR SCTR 
160 A$=ft$+LEFT5<B$,127) 
170 FOR J-l TO 225 STEP 32 
180 IF MID$(A$,J,1)-CHR$(255) TH 
EN 240 'LAST ENTRY 
190 IF MID$(AS,J,1)=OIR$(0) THEN 

220 'DELETED ENTRY 
200 F$^!ID$(A$,J f 8)+7"-»*lID$(AS. 
J-rQ,3) 

210 DN=DN>1 s DN5<DN)=F$ 
215 L{DN}=ASC(MID$<A$,JH5,1)) ' 

LENGTH 

220 NEXT J 

230 NEXT SE 

240 'NOW CO ACTUAL COPY 

250 FOR SE=3 TO II 

260 DSK1$ D1,17,SE.A$,B$ 'READ N 

EXT DIR SCTR 

270 AS^A$+LEFTS(BS.127) 

280 FOR J«l TO 225 STEP 32 

290 IF MID?(A$, J,1)*CHR$(255) TH 

EN END 'LAST ENTRY 

300 IF MXD$(A$,J,1)-CHR$(0) THEN 

600 'DELETED ENTRY 
310 FS=HIDS(A$,J.8)+"/"-»MID$(A$, 
J+8,3) 

320 E-ASC(MID$(AS»J+15, 1)> 'LENG 
TH 

370 "REM SEARCH DEST DRIVE 
360 IF DN^J THEN 560 
390 FOR K=l TO DN 
400 IF DN$(K)»F? AND L(K)=L THEN 

PRINT F?; " EXISTS" ! GOTO 600 
'COPY EXISTS 

405 IF C H$(K )-F$ THEN 440 'EXIST 
S OUT DIFFERENT 
410 NEXT K 
420 GOTO 560 

430 "COPY EXISTS BUT HAS DIFFERE 
NTT LENGTH 

440 PRINT F$r PRINT" EXISTS BUT 
IS DIFFERENT. " 

450 PRINT " — COPY IT? "j 

460 C$»INKEY$ i IF C$-"" THEN 46 




470 PRINT C$ 

480 IF G$-"N" THEN 600 

490 IF C$*>*3f" THEN 440 

540 N2S"F$+S2$ 

550 KILL N2S 

555 GOTO 570 

560 'NO COPY EXISTS 

561 PRINT F$; " DOES NOT EXIST. " 

562 PRINT " — COPY IT? ", 

563 C5-INKEYS s IF C$-"" THEN 56 
3 

564 PRINT CS 

565 IF C?="N" THEN 600 

566 IF C?o"Y" THEN 561 
570 N1$=F?+S1S 

580 N2$=F$tS2$ 
590 COPY BIS TO N2$ 
600 NEXT J 
610 NEXT SE 
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COLOR MICRO JOURNAL K actively soliciting 
contributions for publication- Ha are looking 
for ANY type o1 eetorlel that will be useful to a 
Color Computer Owner; from hint* to full Program* 
and Construction Articles. We -III pay for 
submissions based on a number of criteria- If 
ypu wish payeent for a contribution, be sure to 
state these requirements with your submission. 
ALL submissions aust contain a statement that 
the aaterlal Is not currently under 
consideration by another publication, for sore 
detailed information, send a SASE to the Editor, 
COLOR MICRO JOURNAL, P-0- Box 344, Hhnson, TH 
37343- 

Artlcles submitted for publication should be 
accompanied by thn authors Fufl Noae, Address, 
Data, and Telephone Number. It Is preferred 
that articles be submitted as a -TTT File on a 
FLEX For eatte^ 5 or I lech DTsfc, or as an ASCII 
File on a Radio Skat* Disk or Tape Ca /DAT rile). 
BASIC Programs should be submitted on Disk or 

Tap* In the normal Binary Format. 

If articles are submitted on paper, they should 
be either Typed or Printed Single Spaced with a 
MAXIWM Lime Lengtti of «- on normal 8 1/2" x II" 
bond or better paper- A good BLACK Ribbon aust 
be used because all paper submitted articles will 
be photo reproduced t **0 hand written articles 
will be accepted (except required art work which 
goes with an article)- Again, PLEASE uso a DARK 
Ribbon. 

All letters to the editor should also comply with 
the above ami MUST bear a signature. Letters of 
•gripes' as well as 'praise' are solicited* ma 
attempt to publish arl letter? to the editor 
verbatim; however, *a reserve the right to 
reject any submission for lack, of "good taste'. 
We also reserve the right to define whet 
constitutes t good teste' - 

Advertlslng: Commercial advertisers please 

contact the COLOR MICRO JOURNAL advertising 

department for current Rate Sheet and 
Requirements. 

TRS-80C, Color Basle, Extended Color Basic, and 
Disk Color Basic are trademarks of tha Tandy 
Corpi FLEX end IM'LCX ore trademarks of 
Technical Systems Consultants, Inc. OS-o end 
BASIC09 are trodomorks of Micropore Systems 
Corp. UNIX Is a trademark of Ball Laboratories- 
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SORTC**forOS9* 

THE ONE AND ONLY 



LIKE THIS: 



NOT LIKE THIS 





BOLDLY GOING WHERE NO SORT 

HAS GONE BEFORE 



SORTC is a high speed, fuU-record com- 
pounding disk sort, which gives microcom- 
puter users mainframe capabilities. It has been 
specifically designed to sort data efficiently 
while offering the user great flexibility in 
designing sort programs. It is written in 
BASIC09* for use under OS9. 

COMPOUNDING FUNCTION 

SORTC has the capability of summing user- 
specLned numeric fields on equality of keys. 
This allows significant savings in memory, 
disk space, and program development time. A 
reduction in the number of disk accesses re- 
quired when compared to other sorts is in- 
herent in the design of SORTC. 

DISK BASED 

Specifically designed to sort large volumes of 
data, SORTC imposes no size restrictions on 
the amount of data to be sorted. It also places 
no limits on the number of sort keys which can 
be used or the order in which the keys are sort- 
ed. Furthermore, the sort procedure can be 
performed as many times as necessary within 
the same program. This feature allows the pro- 
grammer to take advantage of any existing 
data bias, and possibly even reduce the size of 
the sort key. 
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*OS9. BASIC09 ar« registered trademarks of Microware 
Corporation. 

"Use* ihe same algorithm as JBM's &ORTC (or Digital 
Equipment Corp. RSTS Systems. 



ADVANCED DESIGN 

While most disk sorts are partially based upon 
the Fibonacci series, SORTC is not. SORTC is 
a generation ahead of the normal sorts based 
upon the "Fib series". Its unique algorithm is 
automatically optimized at run time for a re- 
duction in workspace, reduced ff of disk acc- 
esses and shorter run times. Designed to be as 

"crash proof" as possible, the sort procedure 
will not abort if it is accidentally asked to sort 
zero items- 

EASY TO USE 

It is not difficult to design a program which 
will use JBM's SORTC. Since SORTC is a 
subroutine, the user may write any procedure 
he or she wants to format the data for sorting 
and then to process the sorted data. The sorted 
data need not be written back to disk, but in- 
stead is immediately available. The sort code is 
automatically inserted into the source proced- 
ure by a simple Sort Generator. 



ORDERING INFORMATION 

SORTC, from JBM's MIDWARE line of 

quality software, is available on either five 
and one-quarter or eight inch diskettes for 
a price of $150.00. All of JBM's software 
packages come complete with comprehen- 
sive user's manuals. 

For more information, or to place an order, 

contact: 

DEFT. FSEA 

TheJBM Group, Inc. 

332 West Church Road 

King of Prussia, PA 19406 

TEL: 215-337-3138 

TWX: 510-660-3999 

VISA and MASTERCHARGE accepted. 
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LINKING LOADER 

Ctonelmad tremvmml 



Many editors used on micro- 
processors are limited to the size of 
the files they can process. Large 
Assembly Language F>rograms take a long 
time to assemble, and an excruciatingly 
long time to print on the pr in tare 
available for hone use at home budgets. 
You also have to code any general 
purpose routine into EAOi program. 

You could keep each general purpose 
subroutine (module) in its own file, and 
merge it with the mainline code at 
assembly time (either by insetting the 
code in tlie source with the editor, or 
including it during assembly with 
INCLUDE or LIB calls). Then the main 
program would fit editor buffets 
better. However, at assembly time you 
still have a long assembly to process 
with the same problems mentioned in 
the last paragraph, as weLl as some 
other problems . you would nave to be 
careful of conflicts between Label and 

variable names. I once tried to set up 

a system of BASIC subroutines by 
assigning blocks of variable names and 
line numbers to the subroutines, and 
not use those names or numbers in the 
main, programs. It worked, but it was 
hard to manage. 

The other problem with this method 
is that you have to merge the modules 
manually, remembering the modules that 
the subroutines need. 

You could merge binary modules after 
assembling. There would be no conflict 
with variable names, but you would still 
have to remember to include the 
dependent modules* The biq problem 
with this method is providing the entry 
points of the subroutines to the 
calling routines. 

iwn n'tffffiw 

This brings us to the main feature 
of this article, the description of a 
Making Loader- A "Linking toader" is 
a Program which merges a Main frogram 
with subroutines that are not defined 
(included) within the Source Code of 
that program. In addition to merging 
the modules, it provides a means for 
routines within the complete program 
to locate these added modules. 

The Linking Loader described here 
consists of a Loader Program and a 
Linking Module that becomes part of 
the main program. The Loader merges 
the main program with the required 
subroutines, as well as any subroutines 
within these subroutines. It also 
loads the Linker Module and saves the 
whole program to disk. The modules 
are stored in individual files on a 
disfc.. I have not written a library 
editor for. this system yet. The entry 
point of the Linker becomes the 
transfer address of the main program. 
At run time, the Linker copies the 
entry points of the subroutines into a 
Jump Table- The calls to the sub- 
routines MUST be i n di r ec t calls to the 
jump table. 

There are assemblers available (that 
run under the FLEX Operating System) 
which can generate relocatable code 
and include a Linking Loader, and many 
compilers have the same facilities. 
The program J am proposing here will 
work with ANY assentoler, but requires 
a little extra effort on the pro- 
grammers part- 
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There are some programming 
conventions you will have the follow in 
designing each module that you want to 
link. You will have to code two new 
■actions in each module, inrhrHng the 
main program. Each section is simple, 
and in the final program does not use 
much memory. One section can be 
overlayed, so will not use any memory 
at aLl in the final product. Vbu must 
assemble the subroutine modules at 
location zero and code them in pnsriHnn 
independent coda. You can code the 
main program ANY WAY you like. The 
Loader appends the subroutines to the 
end of the main program. 

Each module must have a program 
"preface" which must be at the very 
beginning of the module. The program 
preface is 9 bytes long, and contains 
the following 5 elements. 



imm 



tin 

in Mk 



function 



Mtiule nuitier 1 aodvle identifier 

eicoition iddretc pointer 7 pointer to entry point 
nest ftodulc pointer 2 poiattr to next lodtrie 

I o-d list 2 painter to lead Ji»t 

initialization 2 pointer to ieiit ializati on 

rout ire. 



The term 'pointer' means the value in 
the field is the offset from the 
beginning of the module. I will 
describe these terms in detail later. 

The second section you must code is 
the List of external, ■odulaa. This is 
the list of Filenames of the files which 
eoin*e*-r» *h» «»ita*"=»tHnM : Sfnr-e hhwe 
is no library editor , each file must 

contain only CME module. Each Filename 
must be in Radio Shack Format format 
followed by a one byte binary cero 
( $00) for the Radio Shack DOS, or in 
FLEX format followed by a one byte 
binary 4 (?04) for the FLEX DOS. The 
list MUST be terminated with a hex FT 
(-1). The offeet to the list is in the 
preface. 

When the Loader loads a module. It 
builds a table of external filenames. 
It then loads each module in the list 
and appends it to the end of the last 
module. The end of the module is 
pointed to by the next module pointer 
in the prefece. If the modules have a 
load list, those names are added to 
the program load list if they are not 
already in the list. 

YOU can code the list anywhere you 
like, but it is best to code it at the 
end of the program. The Loader needs 
the load list only while loading . If it 
is at the end of the program, it can 
be overlayed by the next module, saving 
a significant amount of memory. You 
can accomplish this by making the next 
■odule pointer and the Load Hat. 
pointer point to the same address. 

After loading all of the specified 
modules, the Loader loads the linker 
and copies the program to disk. The 
program is now ready to execute . 

BMftu PKxam 

As an example, let's code a program 
which gets a character from the 
terminal, calls a subroutine to convert 
the character to upper case if it is 
lower case, and display the character 
on the screen- The jump table has 
been located at $0E00. 



TOJPEH EBU flEM ADDRESS LOWED INTO BBC2B 

« BT TME LIVER 

PREFAC OK ISFH 

FCB I WDULE PIIPIBER 

FCB MH-rKFK HECWIM MBRER 

FBB ITRN-FREFK KIT HOHJLE LOU AMRESS 

FBB IW-fKFK HTEMAL SUBROUTINE TABLE 

FDB B MTIALIZAHON ROUTINE 

•I END Of rREFAC 

MIN J5R IftMN] BET CHARACTER FROH KEYBOARD 

JSB nOWPER] CONVERT TO UPPER CASE 

JSR KAIB21 DISPLAY ON SCREEN 

RTS RETURN TO BASIC 

ITRN FCC TDUPER.LIB'J 

FCB IFF 

END PREFAC 

The module number really isn't used 
in the Main Program, but it U needed 
to fulfill the requirements of the 
preface. Notice how the pointers in 
the preface are coded. The values in 
the pointer fields of the prefece must 
be offsets from the beginning of the 
program, which is the beginning of the 
preface, to the code the field 
represents. 

Notice that the next module pointer 
points to XTRM- Remember in a 
previous paragraph, I pointed out that 
the filename list is needed only by the 
loader. It copies the filenames into a 
table after it loads the module. It 
can then overlay the filename list with 
the next module. A program Which 
calls many subroutines could have a 
large filename list, requiring hundreds 
of bytes, you can save a lot of memory 
this way. 

Also note that the initialization 
routine pointer is zero. That means 
there is no initialization routine. If 

thi*rP was mn intfcialSoat i- >n r.oit inn, 

its pointer would be coded like the 
others. The initialization routines 
are called by the linker bs Nbm e passing 
control to the main program. If there 
were no external subroutines, that 
pointer would be zero also. There 
■uat be a pointer pointing to the 
entry point. 

tfcv l#t'« code TOUPER- 






DRIB 


SU&ROUT IKS STMT AT B 


PREFAC FCI 2 


IIOIUIE NWBtfi 


FDB TOUPER 


am fuint 


FDB TEBi 


IIFJT HOWIE 


FBIB 


NO EITEWALS 


FDB 1 


NO 1NITIALIMTI0N 


TOUPER F.PU « 


BEGIN CODE 


CUP A ft 




BLO HIT 


60 IF NOT LONER CASE A 


ClffA B'l 




MI HIT 




subs it ;i 


CONVERT TO UPPER CASE 


EI IT RTS 




TERR EQU • 


REIT HDWJLE 


END PREFAC 





Notice that the load address is 
zero. This is mandatory for 
subroutines, but the Main Program can 
Load AHYWEtERE in memory. It is not 
apparent from this example, but 
subroutine modules must be written in 
position independent code. This is 
because they may be loaded anywhere in 
memory. Main proa/rams do not have to 
coded in position independent code. 

Compare the module nuitoer with the 
address of the jump table entry which 
is defined in the main program. Sbtice 
that the address of the module's jump 
table entry is S0E04, or 4 bytes from 
the beginning of the jump table. That 
is twice the value of the module 
number. That is how the Linker 
determines where in the juwp table the 
entry point of the module will be 

Color Micro Journal 



stored. As a result, all nodules which 
will be used, in the same program must 
have unique module nuitoers. 

Since this module doesn't call any 
external subroutines* or have an 
initiaUxation routine, those pointers 
are 0. 

A listing of the Loader program is 
provided with this article. The 
program is available on disk from 
Southeast Media Supply, P.O. Box 794, 
Hixson. TN 37343, (615) 842-4601, on a 
Radio Shack Color Computer or FLEX 
formatted disk, for $39.95. The Radio 
Shack Disk contains the Assembled Pile, 
"LOADER/ BIN", and the Source Code for 
use with the Micro Works MACRO-80C 
Assembler. The FLEX Disk includes the 
Source only, so that it can be 
assembled either way, for the TSC Macro 
Assembler- The major differences are 
in the I/O routines. A description of 
the code follows - 

■ma LDKINS LOAEER Programs 

BASIC'S stack is saved for return to 
BASIC- By setting the buffer end 50 
bytes below the stack, the bufiet sU* 
is automatically set according to the 
amount of memory {you may need to 
adjust this if your program will 
require more Stack space). 

Th* user is pronij>ted to enter the 
Input and Output Filenames. The input 
file is the binary main program. The 
output file will contain the merged 
main program and all the external 
subroutines. If the output fita is not 
named, the output will overlay 
(REPLACE) the input Hie with the Radio 
Shack DOS? FLEX will assign the Input 
Filename with a cmd Extension. The 
default extension is BIN. 

The filenames are broken into their 
constituent parts by calls to the 
operating system in the subroutine 
parsfn. This will be described Later. 

In the routine labelled MAPC6P, the 
output device for the load map is 
specified. The map can be directed to 
the Screen or the Printer. The output 
device number is stored in DSPDVC. 
The default is the Screen. 

The code at the label LOAD is where 
the load is initialised. Tfre main 
program is loaded first. The flag 
MODCNT is reset to indicate that the 
main program is being loaded. Some of 
the buffer pointers are initialized . 
LDADD contains the address of the 
module currently being loaded. RECADD 
contains the address of the binary 
record currently being loaded. MDOTAB 
points to the next entry to be read 
from the module name table. TABEND 
points to the last entry on the table. 

The module name table, WDDIftB, can 
contain 30 12 byte entries; an 8 byte 
filename, a 3 byte extension, and a 
binary drive number. Each field must 
be left justified and blank filled on 
the right. Each entry must be followed 
by a binary zero for Radio Shack, or a 
binary 4 for FLEX, The last entry must 
be a $FF- 

After a module is loaded, the 
address of its external reference list 
is obtained from the preface. Each 
entry is converted into the form 
described in the previous paragraph, 
and compared with the entries already 
on the table. The compare is made on 
all 13 bytes, you might want to change 
this to compare on only the 8 byte 
filename. If the module is already in 
the table, it is not added. Otherwise, 
it is added to the end of the table. 
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At the label L0AD1, the break key is 
checked and the program is stopped if 
the key is depressed in the Radio 
Shack version. 

Before opening the file, the 
filename is displayed on the load map. 
If there is a file error, the filename 
tells the user which file is in error. 
The file is then opened. RECFLG is 
reset, indicating the first record of 
the file. RECFLG is used later, with 
the main program flag, to indicate that 
the record contains the load address 
of the program. All files use device 
number 1. 

The code at the label LQAD2 starts 
the read file loop. Tfce first byte of 
a binary record is the flag byte, or 
the record descriptor tyte. As £ar as 
I can tell, the only record types are 
for a data record and $FF for an End 
Of File record in the Radio Shack 
system- The record length and the 
record load address are saved on the 
stack temporarily, and the next byte 
read will be the first data byte of the 
record. 

If it is the first record of the 
main module, the offsets are 
calculated. OFFSET is used for 
calculating the load addresses in the 
buffer of the subsequent records as 
they are read in. CFFST1 is used for . 
calculating the load address of each 
module as it will be loaded for 
execution- OFFSTi's only purpose is 
for displaying the address on the load 
map. 

The code from L0AD4 to L0AD5 
calculates the beginning and ending 
address of the current record. The 
code from LOADS to LOADF reads the 
reooH Into the buffer. 

The code at LOADF is the end of file 
processor. Here, if it is the main 
module, the Loader displays a message 
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and pauses so the user can load a 
Library disk if he wishes- 
After Loading each module, at the 
label LOADC the preface is checked for 
an external reference table. If there 
is one, the module names are loaded at 
the end of the Loader's table, The 
name of the next module is taken from 
the beginning of the table at LOAEXJ. 
The name LINK. BIN is added to the end 
of the list so the Linker can be added 
after the last user module. OontroL is 
passed back to LOA01 and the next 
module is loaded. 

After the Last module is loaded, 
control is passed to BDJOOT where the 
concatenated program is written to 
disk . Not* that the program has not 
been linked. Linking occurs at 



The offset from the Linker Module to 
the main module is saved In the 
linker's preface in the entry point; 
field. The Linker's transfer address 
ie u$ed as the Program transfer 
address, where execution will begin* 
The transfer address and the end 
address is displayed on the load map* 

Before copying the program to disk, 
the Loader program displays a message 
and pauses to allow the user to load 
an output disk. An EOF record, with 
the transfer address, is written at 
the end of the file. 

Note that ROM Routines are cnllwl 
for disk and terminal I/O in the Radio 
Shack version^ T*4s program will work 
on the older Color Computers with 
Version 1.1/1. 0/1. ROMs, but I don't 
know if it will work on the new color 
Computer 2"s, Dragons, or TDP's (the 
TDP's should be OK - Editor). All of 
the FLEX calls are standard* so there 
should be no problems with different 
FLEX Conversions. 
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Buy 1 Program Get 10% Off 
Buy 2 or mors Programs Gat 15% Off 

Except Pnddy-Pear Software 
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OvtsftofMnc 
Zax*on(32K| $39.93 Tape or Disk 
MoonSriutfle BUI Tap* or Disk 



Speclnl A s ioc talc ■ 
Ghost Gobbler 

$19.95 

Planet Invasion 

Space Race 

GaUaxArtax 

$21.95 ee 



Guaranmd to load 

Some Demo Software 
5ev*upto45% 

3 Cave Hunter $18.95 

1 Gave Hunter Disk $16.95 
1 Move FHnoall $14.05 

i Pacctnoids 1 14.95 

2 Kawplar Attack 914,95 

SAstroOJast HC. 95 

Z AatroOtam Do* $19.95 

6RailRunnef $16.05 
1Tntogy3 Gam« $39.95 

ftavatfe/i, Qhost GoOtW. Space 

War) 

2 JrvergatoeOc Force $16.96 



PHeWy-Pear Software 15* OFF 

snari .jai . a r m .20 

'VtkMtgs, Fight (32K). Jungle 
.SJfcVWSl 5.9 5 M, 



a** 



Anteco Softwart 

imergaiadc Force $34.95 

Pmoall 124.99 

(AvaeaMe m Rom Peel 

$29 Me,. 

(Available in Rom Pac Omy) 

8 Ball $29.95 
Warty Bird Run $37.95 ea. 

Ghosl Gobbler 52795.. 

KneWJayaS tft 

-The Bert" 
1 Vatar rVarramy 

HS.S5 ee. 



Adventure Iniernalkonal 
Sea Dragon (32K| 

jf* 1 F** Copier 
$24.95 

Tom M Software 

'Donkey King 0§a) 

$25 94 

Space Snuffle C32K1 

^\ $26.95 
•& Trap Fa*. Ffpfl 
$27.95 U. 

Compvlerwere 
Doodle Bufl 

Snarit Treasure 

$24.95 ea 

Rail Runner 

S3VK 



-#* 



Early Gam*. 

Preschool teaming 
i29.S4 Tape arte* 



Mark Data Product* 

Super Pro Keyboard 

$99.95 

y& Glaxxons, Bumpers. 

El BancMo & Cosmic Clones 

$24.95 M 



$# 



'Also available on disk <32K> at extra charge. 

AH program* i$K on cassette i*ite»c«necwtseswoed. 

Sand lor free co/npMe catalog and fJesenpticmP 

W& pay posiaog, YOU wva money! (inine U 5 and Canada). 

TW r eMtttfi MO 6 .25* sales lax. COD orders add $200 



(615) 975-*656 • P.O. Boi 15*92 • Cha*tanooga.Tn3r415 



IMI CONVERT BINARY TO ASCII ERCOKD HI FDR 

inruv 

tdkt mm processor - RETURN to hscic 

COWAN COWARE Tm STRIM6S 

BSPADO H9UI THE CONTENTS OF D IN MEI 

DSPI10D BISPLAr 8 om fiunahe 

KTAH EVALUATE ABSOLUTE ADDRESS OF DATA IN 

ftODULE PREFACE 
INPU1P ISSUE ICSSME TO TEfthlHAt WD HIT Fffi 
■ INfUT 

JMICHR SOW STItlWi FOR specified character 
LENSTR lENBTH OF STRING TEMUNATED" BY ZERO BYTE 
NOffifl PRINT OUT OF RENORY CORDIIIOR 
NOTU PRINT NODULE TftBlE FILL 
OUT? OUTPUT TIC 2 ASCII CHARACTERS IN D 
PAftSFM PAKE A FILE NAHE FOR IT5 CWONEMT 
PARTS. The (ileiue* Is entered ii 
(CS standard fornt. A rot routine Is 
called Bluer, parses the string ind 
stores it in in O/S buffer. H the 
caller specifies »n output buffer, 
PARSFN copaes- it to the buffer 
SEAflCH SEARCH A TABLE FDR A SPECIFIED STRING 
Mrffl OPEN A DISK FILE ' 



VARIABILES 

The eonments on the variables In 
the Source Listing should be self 
explanatory. However the buffer 
pointera probably need more 
explanation. 

The variables PGMADD, XADD, and 



OFFST1 refer to the txouxan aa It will 
be loaded for execution- They are 

used for displaying the memory map, and 
for storing the load address and 
transfer addresa in the binary disk 
file. XADD is the entry point fiar the 
Linking Subroutine which is added to 
the end of the linked modules by the 
Loader. The Linker Subroutine get a 
the entry point of the User's Program 
frern the main module's preface. 

The variables LDADD, RECADD, ENDADD, 
PGMTOP and TABEND contain the 
addresses aa the program ia loaded 
into the loader's buffer. 

The Linker is appended to the end 
of the program as if it were a 
subroutine. The entry address of the 
Linker becomes the transfer address of 
the program. The Linker obtains the 
entry points of all the modules and 
stores them in the jump table, then 
passes control to the main program. 

The address of the jump table of 
this Linker is at 30E0O, identified by 
the label BASE. The jump table can be 
anywhere in RAM. I chose $0E00 
because I write programs for computers 
with different memory sizes. I would, 
think that a better choice for most 
people would be at the top of their 

RAM- 

The code at the Label START is 
where the Linker atarta execution. 
This becomes the Transfer Address of 
the Program. 
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(Until December 24, 1983) 



Rtduced from $74.90 to $49.90 ($52.90 for the AMDEK 3" da*.) 
Get the 64 K and 16K/32K versions for the price of the 1 6K/32K 
versions alone. Here is your chance to get this extraordinary 
Disk Operating System for the Color Computer at a great price. 

Reduced from $69.29 to $59.29 for the CoCo disk or cassette 
version, and from $ 178.58 to $125 for the Flex disk version. (Add 
S3 (or AMDEK 3* disks.) 

Reducgd from $59.96 to $49.95. This version is specially 
configured lor 64K disk systems using either Ftex or STAR- 
DOS. (Add $3 lor AMDEK 3' disks.) 



REBATE 

Buy your Star-Kits software from a dealer, and gel an extra savings by sending us your 
registration form and a copy oi your safes slip or invoice. The rebate is $10 on software 
priced oven $50. and $5 (or soft wtiri* under $50. Theretulcis In eflecfl until December 24. 
1983. 

ILLEGITIMACY PROGRAM 

If you have an illegitimate (ahem . . , pirated) copy of a Star- Kits program, we offer you an 
amnest y as part of our lllegil imacy Program. Send us (a) a workingcopy of the program; (b) 
details on where and from whom you got it (with adequate identification of the source) , and 
(c) 25% of the current list price, and we u/iQ send you (a) the latest up- to-date copy of the 
program, (b) a complete and up-to-date manual, and (c) a sales slip welcoming you to the 
world of happy Star-Kits customers. A small price to pay lor a clear conscience? 

MC-MJ SPECIAL 

To celebrate Star-Kits' being first with MC-10 software, here's our MC-10 Triple-Pak: 
MC-10 HUMBUG (normally $29.95). MC 10 REMOTEftM (normally $19.95), and MC-10 
COMMTERM (a brand new terminal communications program which sells separately for 
$19.95), a total value of $69.85, all for a special price of just $55. 



Star-Kits 



P.O. BOX 209 — J 
MT. KBCO, N.Y. 10649 
(914)241-0287 



Remember that the loader stored the 
value of the offset from the beginning 
of the Linker to the beginning of the 
Main Program in the entry paint fLeld 
of the Linker's preface. The Linker 
now uses that to calculate the address 
of the main program's pre&ce and saves 
it on the stack . 

The addresa of the end of the 
Linker Module is stored at location 254 
of the jump table. This marks the end 
of the code for the program, and the 
beginning of free menory. You can use 
this for dynamic memory allocation, for 
scratch area, or anything you like. I 
haven't used it for anything yet. 

The code at LINK1 ia where the 
linking is done. The address of the 
next module is calculated from the next 
module pointer- The module nuitoer is 
used to calculate the address in the 
jump table where the entry point of 
the module will be stored. The formula 
is BASE + 2 x Module* . The Bitry Point 
is calclated and stored in the jump 
table. This cede is executed for each 
module. 

At LINK2 we start calling the 
initialisation routines of the modules- 
The addresa of the Main Program is 
obtained from the stack, and control is 
transferred to LDJK34. The offset to 
the initialization routine ia obtained 
from the 'preface' . If it is not zero, 
the address of the initialization 
routine ia calculated and the routine 
is called. Control ia then passed back 
to LINK 3, where the address of the 
next module is calculated. This loop 
is executed for all modules, until we 
reach module number zero in the Linker 
Module. 

At LINK4 the address of Main is 
pulled from the stack, Main's Entry 
Point is calculated, and control ia 
passed to it. 

■aland 



Next Month we will cover the OPERAT1CW 

of the linking Loader with RS DOG and 

PLBCr and the provide the complete 

Assembly Language Listing. 
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MICROBOOKS 

CgnttPMrf Um F«ee X 

Actually, "very swall buainess" is a 

bet her way of putting it. I used to 

call my one man repair operation a 
small business. But, I learned that 
Uncle Sam calls a business small if it 
is only itforth a few million, so now I 
call the operation a micro business. 
Hence, the name of the booXkeeping 
program 1 wrote and use, KK5OB0CKS. 

The program is job oriented and 
small, just like my business. (More 
about this in the section on using the 
program.) It is well suited to someone 
who wants to find out if he viants to 
do this kind of thing on a computer 
without putting a lot of money into it. 



Finding a program that I could 
afford, which would give me quick and 
current information on how I'm doing on 
any particular job, seemed to be 
impossible- Having only a 16k. Extended 
Basic OoCo, in addition to the family 
TV and cassette recorder, my aim was 
a small program with only essential 
features . Really, it is little more 
than a means of getting the data on 
tape. Ey omitting Printer routines and 
Statement and Balance Sheets, 
MICROBOOKS is small enough to at into 
16K and still accept well over 200 
entries of expense and/or income, 
provided you use POKE25,6:NEW before 
loading. In this simple form you can 
put on tape only what you can fit into 
memory; but, if you make monthly tapes, 
you can put a lot of data through 
MICRO BOCKS. If there is enough reader 
interest, we can publish Printer and 
Balance Sheet routines for MIOJGOOOKS 

in the future. These routines can be 
plugged into places provided in the 
program, or loaded separately, saving 
memory. 

My own setup will squeeze a Quarter 
(3 months) of business into the 16K 
Extended CbCo. Of course, 32k would 
increase that to a Quarter for a 
bigger business, or 6 months of Books 
at my current rate. To do this with 
the program as it is, I write down the 
totals from each tape, but they could 
be carried forward to the next tape if 
desired. 

TOE PKX3WM 

HZCROBOCKS bears no resemblance to 
spreadsheet programs . I tried Radio 
Shack's "SPECTACULATOR", but it is 
really not a Ledger Program, and I 
found it to be rather alow to use and 
not especially "friendly". MK3OB0CKS 
is menu driven, has fair error 
trapping, and takes data very quickly 
through screen prompts. Its main 
functions are to 

1. Enter and store data 

2. Retrieve and display data 

3. Display sub-totals 

While entering data, several 
opportunities are given to correct 
entries. You can scroll your files at 
a controlled rate for general viewing 
and indirect editing. 

mkking the ptogrmi smallh* 

Since I first talked to Bob about 
publishing this program, I have worked 
on making it smaller and smaller by 
various means of rewriting and 
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compacting, so there are two listings 
for comparison. The first is the 
earlier, more easily read, version - 
which uses about 4-5K of Memory. The 

other Is a much later version with many 
multiple statement lines and other 
space saving features. It takes about 
2 . 5K of Memory and does the same job- 
We'll talk about the job of making 
programs smaller as we go along. I'll 
assume that folks with a minimum memory 
computer are probably beginners like 
me, and write in considerable' detail an 
most things. 



Listing 1 is included for those 
interested in how BASIC Programs can 
be made smaller. Wule some reference 
will be made to Listing 1, most of the 
following discussion concerns Listing 
2, which actually provides more 
functions. 



m fiTgwrff a| TTr | H 



Listing 1 

0001. 



Parameters 
1000. Main Menu 

2090. Expense Entries 
3000. Income Entries 
4000. Totals Routines 
5000. Expansion Space 
6000. File Scan 

Listing 2 

0010. Parameters 
1000. Main Menu 
2000. Ledger Routines 
3000. Totals Routines 
4000. File Scan 
5000. Expansion Space 

6000. Subroutines 



Setting up the CLEAR and DIMension 
Statements involves a certain amount of 
trial and error. In ray use of the 
program f I have decided to abbreviate 
Check entries as much as possible, to 
save space, since I would probably need 
to return to the originals for proof of 
records anyway. As long as I can 
recognize the information, I'll cut it 
as short as 1 can to save memory. By 
doing this, I have reduced the average 
entry size to about 20 bytes. You will 
probably use more at first, as I did. 
If you even use 25 bytes, you will get 
an un useable clear size. As it stands, 
the CLEAR 5000 gives about 22 bytes 
for each of the 230 entries 
dimensioned. 

Dimensioning is simple enough at 
first glance. You just type DlKone 
less than the number of items in 
array) . The problem is: how many can 
you get in after the dimension 
statement gobbles up memory? 
According to my experiments* you will 



STAR- KUUUTS 

Welcome lo the tenth of my monthly chats. Many of you 

haw* commented thai you enjoy reading ihem , and I hey are 

■Vet BSSSJ tO *ri!« lOO. So hare goes, for I his morviri 

In dddi lion 13 having a Color Computer, do you also hau-e 
* 6800 or &809 system on (ha SS-50 bus? I do, and I suspect 
some of you do loo. I often git a tartar from a reader who 
either warns 10 buy or aeD such a system or components 
(hardware or antiwar*) for it Unforiunatetv, some of the 
older earns are hard lo -get, yet some of you may have an 
unused ooa stathad away in the cellar. So why don'E w* act 
up an 

SS-W EXCHANGE 
II you have some SS-50 item for aala. aend me a see- 
addke**ed stamped envelope with a description and prica 
written on the back. H you want to buy an SS-50 itatn, tend 
ma a postcard with a note on what you want. I sfl try to 
match up a buyer and ader, put the buyer's postcard in the 
seller's envelope and mail it back out. From thai point en, 
it'* up 10 the wller to contact the buyer and make the dial. 
Fan proposing (hie simply because I really bite 6000 and 
6909 eyatema. and hale the thought of aomething going to 
waste m someone "a cellar, while someone else is desperately 
awfekfl far it. (a* an eft erthoughi, let's extend a loan/thing 
thai 11 6800 or 6809 related. ) But Knee that may potentiaeV 
involve a lot of work for ma, I fnaisl thai you follow (ha rules . 
poslcarda lor buyers, stamped envelopes for seaWs, oniy 
one item par card or envelope, clearly stated on postcard or 
back of envelop*. 

Now lata aee whether we can rescue some of thoeagema 
in the cellar or atticF 

AMDEKTOO 
Yea, we've gotten a pair of Amdefc 3" drive*, and now 
supply our software on Amdek daks too. Just specify on 
your order. There's a S3 extra charge due to extra handling 
and higher madia coats. By the way. those Hula- 3' disks are 
neat. 

SPrLAIrUNGO FN EAT THINGS 
The tiltts MC 10 computer a also quite neal. It uses a 6803 
rn*rop.oc ««. ., wh. c h « mo. * Uk* a MOO than a 6*09. I'm 
sure Ihal it's used because it contains two input/output 
porta wrech save Ihe expense of an external I/O chap. 
Interestingly enough, the 6803 has a budi -m port for serial 
input and output, but the MC 10 doesn't use it because It 
doean'1 support 600 baud operation, needed for 
compatibility with the larger Color Computer. Instead, 
lenal output a handled the una way as on the Color 
Computer, with a software routine. Though the manual 
doesn't say so. you can change the output baud rale by an 1 
appropriate poke. For example POKE 16932.245 switches 1 
the output to 300 baud. You can try other valuta for other | 
baud rates too. 
By Ihe way. thaMCaOdaohaj the CLOADM and EXEC 1 

conrnianda.lhoughirw book doesri'i rnenlipn them Wr UK ' 

those in our MC 10 software. Available to far are the ' 

HUMBUG monitor, REMOTERM remote terminal [ 

package, and COMMTERM communicationa program- A , 

d i sass e mbler w coming too. ■ 



find 



to 



,or 



SPELL -N FIX 
heganfasaot whose ten processor you us*, let 5FELL "N FIX _. . 
and fu your epefiVtf and typing mialakas. It raads rent taster than 
you can, and spots and const ti errors even eipsrienced 
proofrsadars miss. It ri oompal>M> with al Color Cornputer tut 
procewore H9 39 m the Radio Shack dak or cassette wrruons, 
31 78 5S Bl the FkfB VSlSJOn. (20.000 u-ord die lionary » standard. 
optional 7S,0OQ word Super Dictionary coats J60 aotftanal) 

HIJMata^-THESUPMMOMiTOsC 

A runaasie MfM "no debugging system wrack arts van input 
programs and data Wo memory, Sat memory conacre*, nwn 
m**>pW bnMkpomt, wngte itrp, lesi, checksum, and cnmpjui 
memory contents, find data m memory, atari and slop program*. 
upload and download , save to laps, connect the Cokw Computer 
a itrrnnal, printer, or remote computer, and more. HUMBUG 
disk ar f awiir costs wat Iff .9$ , special MK wwasm lor FLEX 
STAR DOS M costs S69.9S. MC 10 version $29 fat 

STAB— DOS 
A Cask Operate* System apetiesy daskmad lor ih. Cvk* 
Computer, $TnS-D0S is lul*crm^ 

CompLier rask farms! - a read* casks wnWar. by Ea^andad Dial, 
Baak and vice vers* STAROOS tor leet or JZK sysrema «e« 
»49». STAR DOS M tor 64K rysiems casta 174-90 

STAB FLEX 

The beai srvlemeritatian of FLEX lor ihe Color Cornputer 
ComplH* with al uiew. i..t edaor, macrv aeearnben. and 
HUMBUG debug monitor. 1225.00. 

ALL ri ONE — Eeflaer Etc. 

TW. ijeaBaawji jg «— — ■ >■■* ■• — — Frtmi_ i Tart rrnraMQi 

STAB-DOS and 32K, or STnfl-DOS M. or FLF>. speci/Sih. 
OBLS t». Data Bm-es 

taragarchmair*» «iSirriH «r J ^-.-^^ rtI1 ^ | ^ h gj . C y ncaw d 
■M SPELL*. FIX '. 20,000 *ord del «n#y as a lainph dsttar- 
kit you took up ihe apaaaig al any uord in under FOORseasflda. 
Priced al |» * Raqu«« STAR DOS. ^^ 

CHECK "NTAX 

Home ac coun l MiQ ISSehaee Combews crMckbook malnrananc. and 
>nr.om» u- data colvchon Wni trn n Bask tor cither RS Omk or 
FkntUO 

REMOTEJIM 

REMOTERM - mahn your CoCoor MC -LO nloa hosl compuler 
operated from a rernoie terminal llftK. dbk or — 

NEWTALU 

KEW TALK — a memory asarrsne idsny for snadane U^gu*«r 
proarammeni which raads out memory contents Ihrough lha TV 
set speaker 120. datk or cassette. 

SHeUNK 

SHRINK — our venUon of Dua, in rruchme bnajaae and 
estremaly faet. IIS. dak m caaaette. 

EDUCATIONAL SOFTWARE 
Introducnon to rsumancal Methods — coleg* lewd course on 
computer math, 175,00, dash or caartte. 
We accept cash, check, COO. Visa, or Master Card. MY Stale 
resteer*! •base add appropdau, rafaj m. Add to above price 
lor AMDEK T disk ver ucn.. 

(FLEX « i trademark of Technical Systems Consultanta. Inc. 
■saayiasl ekw m this ad is a trademark of Star-Kite.) 



■ Star-Kits 



P.O. BOX 209 — J 
MT.K1SC0,N.Y. 10649 

(914) 241-0287 
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(S) THE BEST OF DSL, (J) 

Now you can get DSL'S best selling programs for less than $2.00 
each, 20 titles, such as Word CC7, Geo-Studies, Packmaze, as well 
as some completely new additions like Autoline, Hard Copy, and 
many more. Still the best just price makes them better. 

$39.95 TAPE $49.95 DISK 

As a special offer, receive a program package which includes 58 
public domain (on tape) programs at no extra charge when ordered 
with THE BEST OF DSL. Offer expires 12/31/83. 

JDBDOS Unleash the power of the G0C0 

An enhancement of R/S disk basic. Some of the exclusive features 
include quick entry of commonly used commands. M/L monitor plus 

much more. 64K 1 ,0 Disk basic required. 

$49.95 DISK 



SUPER CONTESTBR I - 16K - $14.95 
SUPER COVTE8TEB D - 32K - 524 96 

Keep track of 140O entries in 1 6K or 2700 in 32K. 
Sort, Print, Much More. 
Country Locator - $14,95 
Enter Call Letters. Returns Beam Headings from 

any where in the USA. FAST 

- 

Electrode Cslllffrapber - The Hit of Rainbowfest. 

Old English or Chancery Cursive 

type font. Works with LP VIII or EQUIV. 

Version for Gemini tO or 15 
Version for Epson w/Gretftrax 

BOTH TYPE FONTSS1 8.95 DISK ONLY! 
Please specify printer version when ordering. 

THE GENERAL. 

The "GENERAL" on disk. Over 

4O0 accounts nearly 5 ,000 transactions 
per disc. Improved screen display. 

TAPE $39.95 

DISK $49.95 



HARDWARE FAVORITES 

32/64K GRAND SLAM $75.00 

F6fEorFBwdw/1.1 ROM (EXEC 41 170) 

Add $1 5 OO lool d«po»H (refundable) 

16-32K RAM SLAM (Piggy Back) $49.95 

Both slam kits solderlass. 

ONE YEAR WARRANTY 

RS-232 SWITCHER 

Stop Straining Those Connectors. 

Stop Listing the Modem, 

Stop Trying to Log on the Printer 

Fast. Fast, Relief 

The RS-232 Switcher. 

2 WAY $29.95 

3 WAY $39.95 

ATARI JOYSTICKS 

No adapter required. 

GET THE REAL ARCADE FEEL 

&0 DAY WARRANTY 

$14.95 EACH 
2 for $28.00 



m 



DSL COMPUTER PRODUCTS IMC 

P.O.BOX 1113 • DEARBORN, MI 48121 
313-582-8930 • 313-ff 82-3406 (Data) 




Michigan RmMmU Add 4* Bale* Tax To Order 
flaaaa i»c!»-ic HJ.M tor S A ■ 
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5900 Cassandra Smith Rd. * 



• HixsonJN. 37343 



COLOR MICRO JOURNAL™ Is A Monthly 
Tabloid Publication for Color Computer USERS! 



COLOR MICRO JOURNAL™ is a Magazine FOR 
Color Computer Users BY Color Computer Users. Col- 
umns on various compatible Operating Systems, Lan- 
guages, Uses (Bulletin Boards, Clubs, using the RS 
BASIC, and so on), etc. 



Programs - Games - Reviews - Education - Hardware - 
Software - New Product Announcements - Books 



Get the MOST from your COLOR COMPUTER 

without being an Engineer. 

DON'T MISS A SINGLE ISSUE 

Subscription Rate of only $16.50 a Year!!! 



COLOR MICRO JOURNAL™ published by the 
ONLY pure 68xx, INTERNATIONAL Computer Maga- 
zine. '68 Micro Journal has provided coverage for over 
FIVE Years. We KNOW the Color Computer, the Soft- 
ware (both FUN and WORK) that IS and CAN BE run on 
it. We KNOW the products that ARE, CAN BE, or 
WILL BE used on the Color Computer. 




For Ordering Subscriptions By Phone 
Call 1-800-338-6800 



(taiax Muxn Sounutl 

Limited Time Charier Rates 

USA - S 16.50 per year. Canada A Mexuo - $21,00 per year 
Surface Foreign - $-28 OL) per >ear. Airmail Foreign - SS2.UTJ per year 



"Color Micro Journal is. a inidcnuirk of Computer Publishing Inc. 

Color Micro Journal 



Yes! Slart my copy of Color Micro Journal coming as soon as 
possible! 



Name. 



Address 

an 



.State. 



Zip. 



□ Visa □ Master Card Q Check or Money Order F.nclused 

Card # 

Ftp/Date 
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Lose about 7 bytes for each element in 
the dimension statement- If you have 
one DIM(230), you will lose about 1600 

byt.es Of mtnioiy, If VOU have tWO 

DIM<230)>, It will be about 3200. 
MECROBOOKS has six, which uses roughly 
9.5K. Perhaps acmecne can give us an 
accurate way to calculate it. I have 
had different programs show a byte loss 
of from 5 to 7. 

To experiment with these 
parameters, use the BASIC edit command 
to put in different CLEAR and DIM 
sizes, then BOH again. If you have 
reserved too much space* you will get 
an CM ERROR, which breaks you out of 
the program. This means you ran out 
of memory before the CLEARing and 
Dimensioning were complete. If you do 
not get an OM ERROR, you know it goes 
into the memory yrsu have available,, but 
then you will want to know if you have 
enough room left to use the Program- 
Type PRTHT MRM or the shorter 7 MEM (? 
is short for PRINT) and <ENTER> to see 
how much room you have left. 

It would be a good idea to leave tuo 
or three hundred bytes in memory. The 
computer win use a certain amount as 
it functional and will break out with 
an OM ERROR if enough room is not 
available . MICROBOOKS seems to need 
about 175 bytes above the program 
memory, but I leave more just to be 
sure it doesn't bomb. 

Since GOSUB's make it hard to follow 

•a program, here's a rundown of the 

Subroutines in HKSOBuTKS. 

6000. SELECT CNE 

6100. YOUR SELECTION 

6200. Tape loading 

6300. NOT PROGRAMMED 

6500. Scan screen print 

6600. ANOTHER SCAN? 

6900- IS TAPE LOADED? 

HOGRN4 BSBFBI 

One of the fun things about 
programming is that you can do AMY job 
in more than one way, and many jobs in 
many ways. Sometimes you will need to 
change something a little in order to 
use it for more than one function - 
For instance, do a little eon^aring of 
IF-THEN and INSTR. 

The menu section in Line 1090 begins 
with a GOSUB to print a prompt above 
the menu. If you don't make use of 
Subroutines in your Programs, you are 
probably using too much memory. Just 
about anything that must be done more 
than once will use less memory if it is 
put into a Subroutine. This is one of 
the ways I cut down the size of the 
original program. Also in Line 1000 is 
the setup of the Main Menu, with 
numbers leading to the ON GOSUB in 
Line 1010. The last statement forms an 
"Error Trap" to prevent numbers other 
than the Menu selections from sending 
you on a wild goose chase, or bombing 
the program. If you enter the wrong 
number, the program simply prints the 
menu again. Of course, this happens 
so cast you hardly notice it. A proper 
choice sends you through Line 1010 to 
the Line Number for the selected 
routines. 

Starting at Line 2900 is. first* a 
Sub-Menu for either Old or New Tapes, 
and then another kind of Error Trap. 
IF you give a valid number Tffil you go 
to a line number, or ELSE back to the 
Menu again. Line 2020 asks if you have 
already loaded the tape and sends you 
through Lines 2400 to 62OT to load it 
if you haven't. If you have loaded a 

12 



Tape, you go to Line 2100 to begin the 
actual entry of data. 

Line 2100 represents a lot of head 
scratching. It was easy enough to put 
in the instructions on how to exit the 
Entry Mode, but I wanted to have 
numbers from the last two entries to 
Veep myself oriented as to where I was. 
The problem appeared! when I tried to 
go to the Entry Mode without having 
previous entry numbers already in, as 
is the case when starting a new tape 
for a new period. If I called for only 
one back number, it would just leave 
that place blank,- but if I called for 
TW3 back numbers when there were none. 

1 would get an FC ERROR. So, by 
checking whether "1 H had been chosen 
fran the menu (NEW FILE), I would know 
whether a flla had been loaded or I was 
starting a new one, and therefore, 
whether back entry numbers were 
available. If not, the back number 
call is bypassed until after the first 
entry by IF-THEN'ing to Line 2105. 
Because Line 2100 is used over and 
over, it would not do to have the back 
numbers skipped every time, so Line 
2105 nulls "S* to allow the program to 
get past the IF-THEN the ne*t time 
around and all times thereafter* It 
also spaces down one line on the 
screen for display clarity. The GOTO 
in Line 2100 skips the space in 2105 
after the first entry. Actual input of 
data begins at 2110. 

Since this is also your location 
when you are finished Entering Data, an 
IF-THEN tests for "XX" (which is the 
signal to the Program that you are 
finished entering data), and if XX is 
input, you are sent to Line 2180 to 
Save your Data to Tape. Similarly, the 
next two lines test for CC, which is 
the sign for "correction needed", and 
sends you back to start that input 
over again. 

The next point of interest is in 
Line 2140, where you have Ofce "Or* 
chance to correct your current entry- 
INPUT and <ENTEft> are used here 
instead of INKEYS to provide some error 
trapping. The truth is that the trap 
only half works, because I felt that it 
would be a lot faster if you didn't 
actually have to hit Y each time you 
had finished an entry. While TT will 
return you to the start of the same 
entry again, you will go to the next 
entry if you hit the <ENTER^ key. 

Line 2170 sends you back to 2100 
after incrementing N by 1* In your 
first entry, input N will be input 
number 1. The next one will be input 
D»l) or 2. since N is now equal to Nfl, 
and so on until you finish. 

After you have ended your Input 
{entries). Line 2180 will ask how many 
times you want the data saved. I put 
this in because I had had so many tape 
glitches that one save was useless. By 
having several saves in the tape (I 
usually have 3 or 4), you can always 
find a good one. I have greatly 
reduced the problems, but that is 
another subject. At any rate, you may 
save as many times as you wish. The 
variable SA carries the number of saves 
desired into the FOR-NEXT loop in Line 

2 300. A FOB-NEXT loop is nothing more 
than a counter which counts from the 
number before the TO to the number 
after the TO. If you press <ENTER> 
without a number, the 1 in FOW^ITOSA 
(Line 2300) becomes the only number to 
be counted, therefore only 1 save is 
made. 

Oine 2300s Dy putting the prompt 
"STORING DATA" in the middle of the 



screen, you can help eliminate that 
nagging feeling that maybe the computer 
is hung up while it is sitting there 
saving large amounts of data. Of 
course, you could turn up the sound 
and listen to the 1's and 0's fLy, but 
that gets old fast. You may want to 
try changing the CLS (which clears old 
information off the screen) to CLS0. 
By doing this you will have a black 
screen while saving the data. When it 
goes green again, the save is done. If 
you try this, you'll also want to put a 
semicolon (j) between the quote <") 
and the colon (i)j this will prevent the 
green from running out to the edge of 
the screen after the prompt. Also, if 
you put an extra space before and 
after the prompt (inside the quotes}, 
it will look a little better. 

You will also find an example of a 
"Nested Loop" in Line 2300. The 
innermost loop prints the array to the 
Tape starting at the first X, in this 
case 1, and looping (counting) until 
the N'th X. N is equal to the number 
of entries you made, and determinea how 
many loops are required to complete 
the array. Each loop (the term loop 
applies both to the FOR-NEXT loop 
itself, and to each cycle through the 
loop) prints one entry, and when all 
strings in that entry are printed, the 
NEXT tells FOR to loop again for the 
next higher number. Thus each entry 
is printed in turn until the entire 
array is printed* 

Note that since N has become a 
total, the "print to tape*' part uses X 
to count its' way up to N. Note also 
that after the cassette File was 
opened for output (OPnTO",t-l), and 
the Save given a name ("LEDGER"), the 
value of N was printed to tape for 
later reference (PRfflW-liH). When N 
number of loops has been made, the 
cassette File is closed, and control 
moves on to the next thing, which is 
actually another loop inside the X loop 
in the nest. This T loop is only a 
timer to allow space on the tape 
between saves. Again, control moves 
on. This time, a coma is substituted 
for a NEXT, but the effect is the same 
and a few bytes are saved. The 
program moves to the next loop back 
that has not been done, namely the V 
loop* It loops SA number of times, the 
number of saves you called for, and 
goes on. After the prompt there is 
another timer, to give you time to read 
the prompt, and then you go back to 
1000, the menu* 



NOTES for the beginners: 

Each entry you made had six 
parts, called strings. The number, 
for instance, became NUS(N), the 
date became DA?(N), the amount 
became AM(N) etc. As each entry 
was made, it was given a number to 
replace the N in each string in 
that entry. Since each entry is 
numbered in order, each is printed 
to tape in the same order by the 
PRINT #-l,NUS etc. #-1 is the 
basic w>rd for the tape recorder. 

When you want to add data to what 
you already have, first choose Number 1 
from the Main Menu for LEDGER and then 
Number 2 from the Sub-Menu for EXTEND 
FILES. You are then sent to Line 
2400, which handles the loading of the 
most recent tape data into memory. A 
GOSUB sends you to Line 6200, which 
loads the data by reversing what was 
done in Line 2300. The value of N is 
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TEN MOST-ASKED QUESTIONS 

about DYNACALC 

THE ELECTRONIC SPREAD SHEET FOR 6809 COMPUTERS 



1. What Is an electronic spread -sheet, anyway? 
Business people use spread-sheets to organize 
columns and rows of figures. DYNACALC simulates 
the operation of a spread-sheet without the mess 
of paper and pencil. Of course, corrections and 
Changes are a snap. Changing any entered value 
causes the whole spread-sheet to be re-calculated 
based on the new constants. This means that you 
can play, 'what if?' to your hearts content. 

2. IS DYNACALC Just for accountants, then? 

Not at all. DYNACALC can be used for just about any 

type of job. Not only numbers, but alphanumeric 
messages can be handled. Engineers and other 
technical users will love DYNACALCs sixteen-digit 
math and built-in scientific functions, you can build 
worksheets as large as 256 columns or 256 rows. 
There's even a built-in sort command, so you can 
use dynacalc to manage small data bases — up to 
256 records. 

S. What Will DYNACALC do for ME? 

That's a good question. Basically the answer is that 
dynacalc will let your computer do just about 
anything you can imagine. Ask your friends who 
have VisiCalc™, or a similar program, just how 
useful an electronic spread-sheet program can be 
for all types of household, business, engineering, 

and scientific applications. Typical uses include 
financial planning and budgeting, sales records, 
bills of material, depreciation schedules, student 
grade records, job costing, income tax preparation, 
checkbook balancing, parts inventories, and payroll. 
But there is no limit to what YOU can do with 
DYNACALC. 

4. do l have to learn computer programming? 
NO! dynacalc is designed to be used by non- 
programmers, but even a Ph.D. in computer 
Science can understand it. Even experienced 
programmers can get jobs done many times 
faster with DYNACALC, compared to conventional 
programming. Built-in help messages are provided 
for quick reference to operating instructions. 

5. do I have to modify my system to use dynacalc? 

Nope. DYNACALC uses any standard 6809 config- 
uration, so you don't have to spend money on 
another CPU board or waste time learning another 
operating system. 

Order your DYNACALC today! 



foreign Dealers: 

Australia & Southeast Asia: order from Paris Radio Elec- 
tronics. 161 Bunnerong Road IPO Box S80> Kingsford, 
2032 NSW Australia. Telephone: 02-saa-9in 

United Kingdom: order from Compusense. Ltd., PO 
Box 169, London N15 4HT, Telephone: 01*82-0681. 

Scandinavia: order from Swedish Electronics hk AB. 
Murargatan 23-25, Uppsala S-754 37 Sweden. Tele- 
phone: 18-25- 30-00. 
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5. Win dynacalc read my existing data flies? 
you bet! DYNACALC has a beautifully simple 
method of reading and writing data files, so you 
can communicate both ways with other programs 
on your system, such as the Text Editor, Text 
Processor, sort; Merge, stylograph™ word 
processor, rms™ data base system, or other 
programs written in BASIC. C, PASCAL, FORTRAN, and 
soon. 

7. HOW fast IS DYNACALC? 

very. Except for a few seldom-used commands. 
DYNACALC is memory-resident, so there is little disk 
I/O to slow things down. The whole data array 
(worksheet! is in memory, so access to any point is 
instantaneous. DYNACALC is 100% 6809 machine 
code for blistering speed. 

8. is there a version off DYNACALC for my system? 

Probably. You need a 6809 computer (32k 
minimum) with flex™, uniFLEX , orOS-9™ 
operating system, you also need a decent crt 
terminal, one with at least 80 characters per line, 
and direct cursor addressing, if your terminal isn't 
smart enough for dynacalc, you probably need a 
new one anyway. The uniFLEX and OS-9 versions of 
dynacalc allow you to mix different brands of 
terminal on the same system. There's also a special 
version of DYNACALC for Color Computers eauipped 
with FLEX (Frank Hogg or Data-comp versions). 

9. how much does dynacalc cost? 

The flex versions are just $200 per copy; uniFLEX 
version S395; 05-9 version (works with LEVEL ONE or 
level TWO) S250. Orders outside North America add 
$7 per copy for postage, we encourage dealers to 
handle dynacalc, since its a product that sells 
instantly upon demonstration, call or write on your 
company letterhead for more information. 

10. Where do « order dynacalc? 

see your local dynacalc dealer, or order directly 
from CSC at the address below, we accept 
telephone orders from 10 am to 6 pm. Monday 
through Friday. Call us at 314-576-5020. Your visa or 
Mastercard is welcome. Please specify diskette s*ze 
for FLEX or 05-9 versions. Software serial number is 
required for the uniFLEX version. 



Computer Systems Center 

13461 Olive Blvd. 

Chesterfield, MO 63017 

C314I 57S-5O20 



% 



uniFLEX software prices include maintenance for 
the first year. 

DYNACALC Is a trademark of 
Computer Systems Center 

vwcaic is a trademark of vislCorp. 

stylograph is a trademark of Great Plains computer co. 

rms is a trademark of Washington computer service 

fux and uniFLEX are trademarks of TSC 

OS-9 is a trademark or MJcroware and Motorola. 
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loaded first (remember the PMNr#-l,N> 
ao the computer will Know how many 
entries there are. Then the loops go 
to work, as before. 

After the data is loaded from Tape, 
you 90 back to line 2103 to enter data 
the same way as before. But, there Is 
a difference. Rather than starting 
with 1, the computer starts with the 
current value of H which was just 
loaded. After each entry# the value of 
N is Increased by one (remember the 
N-N+l), and when the entries are 
completed, you will have a new N total. 
Starting out with the same number you 
ended up with on the last tape might 
look like it would replace the last 
entry you made and, in feet, it does. 
But, remember that your last entry was 
XX to signal the end. Starting out 
with the same number causes the first 
new entry to go where the XX was, so 
there will be no lost space. When the 
save is made, the old array and the new 
array are saved together as one new 
array, so you will not have to keep the 
old tape unless you want it for a 
partial backup. 

The next section of the program 
starts with Choice Number 2 on the 
Main Menu - "TOTALS". You are 
branched to line 3000 for a Sub-Menu . 
After a quick GOSUB for a prompt, 
there are three chioces. You will 
soon find that only the first one works 
as of now. As mentioned, a Balance 
Sheet has yet to be added, but it 
could be included in the space provided 
by choice 42* Choice A3 is similar. 
GOSUB6100 is another screen prompt, 
and the branching and loading which 
follow should be familiar now. 

The TOTALing Routine is similar to 
the one on page 229 of the Radio Shack 
"GETTING STARTED . .. w Manual that 



comes with your Co Co- It would have 
been nice if they had bothered to tell 
you that that little program only works 
for ten checks. I learned that this ia 
because the computer will automatically 
dimension an array for 10 elements if 
you have not specified any other 
number. For some reason, I had a real 
hard time getting this information; 
maybe I missed something in the book, 
but I sure didn't know it. Finally, I 
got the information I needed concerning 
arrays, not from a Computer Center, 
but from Roger Bryson, who worked in a 
local Radio Shack Store at the time. I 
certainly got a Lot of help from Roger, 
and I wish, him luck in his new 
business - 

When the input ia made answering 
11 JOB OR ACCOUNT?*, the B$ labels it as 
just that - B$. A loop is set up 
based on N again, but this time a 
different routine is placed between the 
FOR and NEXT which searches for a 
string that is the same as B$. Onee 
again, the array is gone through from 1 
to N. If a string match is found under 
account or (else) job, the amount 
listed under the same entry number is 
added to T, which uas set to at the 
beginning. More loops are completed, 
and each time a match is found, the 
corresponding amount is added to T 
until all matches are found; the TOTAL 
is then printed for that string. 

When I think I have an understanding 
of PRINTUSING that is adequate, 1 may 
write some about it. In the meantime, 
I'll just say that it keeps your figures 
in the right place, and let you look in 
the manual for information. 

At the end of Line 3140. GOTO3130 
sends you back for another search 
based on another JOB Number or 
ACCOUNT. T is reset to to clear the 
way for another totals routinet 



smp leAse 



A MATHEMATICAL DIVERSION 

FOR 
MATURE GENTLEMEN! 

by BRUT MONK, CDP 

GALAK SOFTWARE RATEP "R" 




$14.00 16K 



CASSETTE 



Featuring t 



HIGH RES GRAPHICS DANCING FAST ACTION 

RYTHM & BLUES MU5IC MACHINE LANGUAGE 



Check or Money Order Only 
SOLD IN PLAIN BROWN WRAPPER 



by BRITT MONK, COP 
GALAK SOFTWARE 

925 Dal ton Circle 

Morrisiown, TN - 37814 
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A lot of lines in this program open 
with a CLS in order to keep the screen 
neat. while I wanted to Clear the 
Screen before this part, I couldn't put 
a CLS at the beginning of the line 
because I wanted to have several totals 
on the screen at once, if it was 
there, it would clear each total before 
another was printed . That is why you 
see the CLS at the end of the previous 
line. This is one of several 
improvement 3 over the larger program in 
listing 1. The CLS could have gone on 
a line of its' own, at the expense of 
several bytes of memory. 

Lines 3200 and 3300 are spaces for 
future routines, as mentioned earlier. 
The subroutine displays a message and 
times it for several seconds, then 
returns to the main menu. 

The SCAN Routine starting at Line 
4000 is for the purpose of Looking at 
your files after they have been put 
into Memory and/or on Tape . First you 
are asked whether you have loaded the 
Data Tape, which is really asking if 
the current data is in memory, not 
whether you have put a tape in the 
recorder, etc. If the data ia already 
in memory, you go directly to the SCAN 
Sub-Menu. If not, then you get a 
subroutine which loads the Tape. This 

is the sane subroutine that is used to 

load for the LEDGER extension and for 
the TOTALS retrieval. The Tape Load 
prompt could have been put in a common 
sub-routine, but, as it now stands, it 
identifies where you are in the program 
in case that information is needed. 

Lines 4070 and 4080 both have 
nested loops as well as sub-routines 
which do worX during the main loop. 
The sub-routines print your files to 
the screen, but, since the printing is 
done so Cast, it must be slowed down by 
the nested timing loop. Each time an 
entry is printed, time is counted off 
before the next one is printed. If you 
see something you vant to copy you can 
press M f 9 to stop the scrolling. 

BOTE for beginning beginners 



Your manual tells you that 
6 will pause program execution. 
You do not need to hit them at 
exactly the same time. I like to 
press first <SHIFF> then £ in a 
sort of rocking motion. Your 
manual also says to press any key 
to continue. Since F is right 
next to e 1 1 always use it when 
pausing and continuing. 

Instead of the nested timing Loop, 
you could experiment with straight 
printing statements putting FGKK359,60 
before the print and POKE359,126 
afterwards. This will print One 
character at a time to screen, which 
is much slower. The strings have been 
placed onto the screen in a way that 
fits them all onto two lines. This 
allows several entries to be on the 
screen at the same time, which is more 
than some commercial programs allow. 

Line 6 500 begins with a print 
Statement which spaces entries apart 
for better readability. For some 
reason, the first ten or so lines do 
not space?7? The TAB Statements are 
similar to typewriter tabs. The item 
is printed at that number of spaces 
across the screen. The PRIWTUSDJG 
statements keep the numbers right 
justified, as well as covering a 
rounding glitch in which the computer 
sometimes prints an unwanted number of 
digits to the right of the decimal. 
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$24.95 Ta P c l"k™iatkon 

Management Swtcm 

A user-oriented, easy to use personal OaiaOaso management system lor fhe TRS-80" Cotor 
Computer with these oulstandng features; 

• keeg* lee* ol program, names, addresses, (wmdays. recipes., dass o' clob rosters, etc 

• vsrisbto raeord mil tieU lengths 
t phrase substitution scMor 

• up to 8 user -definable l*lds 

• ML sort (up to 3 tietds). search and delete tonchons 

• user -definable printer tormat. lot arty primer 

• up 10 230 characters per record 

PhcwirK/uOM inedatoc*iemar»op>menr*)*f*rn. M€toc«*m««raflonmc(udnpar^fwie« 
au>de and f 081 Bibliography ol Color Computer articles. 

fl*QUM*f IflK E**9f>49d flaac J2X nttrtMtaAtfeot 

1982 TIMS Bibliography - $9.95. 




$19.95 



Thf TtMSMAIL. mailing liat manager h as moat 
ol the line features ol TIMS aa well as these 
special meiang MM *eeW**: 

• user selected label formats 

• corrtinuoue or single sheet 

• designed (or BO column printer 

• 1. 2 or 3 i Boan wide 

• 24, 2-75. 3. 3.5 and 4 Inch Imbmtm 

*eeieet Heidi do print 

• select records to pnnl 

• fast ML search, sort <up to 3 ReMil eno delete routines 

ffeotenH 3iK firfenoW ess* 




RUM 

<^7 



ooo 



$19.95 



Auto Run it a utifcfy program tor the TR5-80" Exlanded MM Cotor Computer. It is used to 
edo convergence «nd profeaaionaliem to your software. 

Auto Run nil help- you create your title screen with thegriphici ecsor. Thegrsr^iCTeoKor 
allows you to choose a background cotor and border style. U«ng tf>e e/row Keys end tever«l 
other commande you can omw pictures, block ietlere and also include text. 

Auto Run wnt generate a machine language loader program to proceed your program on 
the tape. Then, to start up your program. s*nply typa CLOAOM to load in lha Auto Run loader 
program, which wvj then swtomatieasy start itself up. ■drapujy your trfle screen, load your 
program and then RUN or EXEC it. 

Aik you may record a vocal or musical ."(rod -,d»bi s s sjaa jsjB l sj your program. The Auto 
Run feeder wai control the audio on off. 

basic programs can be set to load anywhere in memory abov* one PCUAH page 

Software author*: The Auto Run preliN may be appended to your software products. 
Pncs include s compwte clccumenfaDorr and awamo/y .source bating 
r?ecj uires rOK fxronovd flewc. 



Galactic Han gman $17.95 

A great new twst to tn»popv*eraduc«tiQnalwordgiJM»«ng gama tor th« Colo* CoiVipirfe'. 
Langs (700 words) and sophisittatod vocebiiery. Or enter your own words, your child's 
spelling tot. foreign language vocabulary, etc. 

Outstanding high resolution grsphles. 
animstion and sound elect* 
Priet Includes both 16K 
and 32K ««■'*•. 0<ri 





RATECTOR?. $99.95 

Our dnh-based anbewacy applications devalopmant system has these leatures: 

• Protect your dish software from piracy 

- Users can create iron -**Cu!r.c-?, backups 

• Proiects ML or Basic programs 

• Your program ia onorypted, which prevents kalirg) or *sJ*semb*y 

- Loader display* graphic trtle screen, then loads and starts your program 

• Incrementing serai numbers and other user oata supported 

• Automat* generation ol copies i-om your master for 2 (or moral die* drives 

- Dish irwtkSlizaflon 

■ Copy al Mas from master lo target 

- Aratocf up to 5 programs on target disk 

• 100% Machine Language 

• Easy to use Ml- screen menu onemed 
> User subnoutirwe 

- User subroutines may be LOADMkM 

- Usable Dy ML or Basic 

• Border drawing rOtrfme 

> Keyboard input routine Ideal lor your programs 

- Position independent 

• Break key dtsabto tor Basic pnogrsrns 

• Trta screen graphics editor to crests your own litte- seven 
-High resolution 

• Semajraprac mooes 8. 12 and 24 (WirtM. 6si9B and Ms 126) 
■•B colors 

• Combine text w<th graphes 

- Load, display, save graphic title scraena made srfth othsr graphics edfloro 

• Protect demo daks you send out 




$19.95 



Disk Version - $24.95 

Disk version with all 62 stories - $49.95 

A sensational end educational version of a popular peny game tor rhe> TPjS-bW Cokw 
Computer... Fori to 10 players. Load a story into the computer The players sre asked lo 
supply a noun, werb, pari oi body , cessbrlty. etc. aliteh me program uses toco 

i*h* wivy, .-.■'-■-- >• Basjsssssal ■ - -- aii wenas •« ss sl srs dl ■■■ " b* ha*nou« 

Pnc* tnauett &*y Syntax gam*, «*•* guda and 2 

BJBSJM 

fleowes i€H trended Bux <32x *v oust*. 

You can create your own stones or order story tapes from the sstocbon bstow. 

Bash stsry tope te Hubs. 

BWy tyrMaic stories - Tsn stones per tape. 

SSOQi - Fpny raves S^OOe • Currenr f^ems 

55-002 ■ SrflO *«g SS-COS ■ *0\antufmSc-P> 

SS-CW - ^-flerea SS4Qr ■ Poewum 



>«?. 



PREREADER $19.95 Disk -$24.95 

Me*vcurrxestfwlen*(3.5>c*iewntorB^ 

Orvet Ngh mdutlon graphics, cetera and sound afreets. Includes capital and smsll-Wters. 

numbers, shapes and rotors, much moral Requires 32K Emended Base mo joysticks 



'ISTATGRAF $24.95 



Disk -$29.95 



ST AT0RAF « s knesr regression ensK/ois peckeg»con«n^whl*sciyiist»cat»dr^rwolu- 
son ptofling/Une graphmg Features include: allows entry of up to 250 pairs of (i.yj data, 
Crsnalorrna observstons using togarithmrc, square root, inverse sxponentiai or add'ttvf 
codes, ptoia any number ol data awta on ■ «ngk« graph, type intomiabon dirsCtly onto the 
graph in 3 c*torrtabons. 

flequires 32* iKfndwt Ssuc. 



'TfiS-90 4 a frademsr* of Tsndy Corp. 



SUGAR SOFTWARE 

2153 Leah Lane 

Reynoldsburg, Ohio 43068 

(614)861-0565 

CIS ©rd#r# EMAIL to 70405, 1374 




Add SI .00 per tope or disk tor postage and 
handling. <mtoens add 33% seen is*. COO 
orders are wsrooine. Dealer InquiriBa sv 
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The Original FLEX "for Color Computers 



' Upgrade lo 64K 

• RS to FLEX. FLEX to RS file (ranster ability 
1 Croats your own character set 

• Automatic recognition of single or double density and single or 
doubted sided 

' All features available lor either single or multiple drive systems 

• Sellable Disk Drive Seek Rates 

' Faster High Resolution Video Display with 5 different formais 
■ Save RS Basic from RAW to Disk. 

• Move RS Basic to RAM 

• Load and save hmction on FLEX disk 

• 24 Support Commands 12 with Source Text 

• External Terminal Program 



DISK DRIVE IWJXB,. etc. 

Theee Padcage incltxb the Radio Shade W«k Controller, Di*K Drlvee with 

Powr Supply and Cabinet, and DLbX Drive Cable i 

FWfl-1 Single Sided, Double Density Sya. 5339.95 

$2-2 9ii»gl* Sided, Double Density Sya. $675.95 

13-1 Double Si. led, Drxfcla Density Sya. SS&9.9S 

#4-2 Double Sided, Double Danaity Sya. S919.9S 

15-2 Oiaaa ihinline Double Sided, Double Density Sya. S699.95 

•6-2 Tandon TTiinline Single sided, Double Danaity Sya. $599.95 



DATA-COe? has everything you need to nalw your TBS-33C Color Conputar 
MOHK for -rcu r frao parts and Pieoaa to mi L Ready to Uaa Syatane . qata- 
CGHP deaigns, sells, services, and SUPPORIS Ocroputer systems, not just 
Software- CALL DWVCCH? TODAY to make your Qnputer MMK FOR "TOUI 

SreteajPsgiilisssnls 

riJ0 Special General version t- Mitor 4 Aasuibler (which normally sail 
for SSa.08 «.) $150.00 

f-4*ME(sV) F1ZX9 Convaraion Rout, for the RS Dialc controller 
when purchased with Special General PUSC9 Sya. $ 49.95 

when purchased without the General FLEX9 Sy». $ 59.95 



Color Conputar with 64K RAH and EOT. BASIC 



$399.95- 



SYSTEM PAQOtZS 



64K Radio Shack CGUOR cchputer. Radio Shack COLOR DISK odothxler, a 
p*ak Drive System, Special General Version of FUK$, P-HaTE(RS}, and a 
Box of 10 Double Density Dielcattaa, a CCHPLFrE ready to run SYSTEM on 
your Color TV Set. 

$999.55 

64K Radio Shack COLOR COMPUTER, Radio Shack COLOR DISK ODtfTROULCR, a 
Disk Drive System, and a tox of 10 Double Density piskettes, a CCte/LfTC 
ready to run SYSTRM an your color TV fiat* 

*799.95 



parts w 



EP90K RX-88 


S375.0O 


epson Mx-iea 


5725.08 


EP3C*lMK-a* 


$395.00 


epsow px-ae 


$599.00 



SKOAL B0AB» 

PK-Seriea 5119.95 

RX-nc-Series $ 99-95 

SpwtruB HX-Series 9 54.95 

Hark Cnta Keyboards 3 67.95 
FLOPPY PUM11&B 



Mr.MOKFX VERBATIM 



S2.48ea. 
S2.40aa 



Radio Shack Disk Controller 

1 Single Sided, cuttle Density Disk Drive Tandom 

1 Double Sided, Double Density Diak Drive Qunc 

1 rjune Ihinline Double Sided, bauble Density 

1 Tandon 40 Track SSOD with Cabinet and Power Supply 

Single Drive Cabinet with Power Supply 

Coublc Drive Cabinet with Power Supply 



$1*9.95 
$229-95 
$319.95 
$?49.95 
$259-95 
$ 79.95 
$109.95 



Soft Sector Diska 
Single Sided Single Density 
Single Sided Double Density 
Double Sided Double Density 
Plastic Storage Box 

Soft Sector Disks 
Single Sided Single Danaity 
Single Sided Double Density 
Doubts Bided ttwtol* DanaLty 
Plaatlc Library Box 



Single Drive Diak Cable for RS Controller 

Double Drive Disk Cable for RS Control ler 

Micro Tech. Prods. Inc. LOWER CASE ROM Adapter 

Radio Shack MSIC Varaion 1.1 ROM or 1.2 ROM 

Radio Shack Brtended Basic ROM 

Radio Shack Disk Basic ROM 1.1 

Screen Clean - Clears up video Distortion On tour Color Ccnputcr 

Set of Eight -&4K RAM Chips w Mod Instructions 



S2.75ea 
52-T5ea 
54.92*a 

?2.00ea 



S3.7SW 

$4.10ea 
94.75ee 
55. 1 



19.95 
24 .95 
74.95 
34.95 
74.95 
29.95 
39.95 
«-95 



For Ordering Call TOLL FREE 1-800-338*6800 



LAST OF PRODUCTION!!! 

!! LIMITED QUANTITY !! 

SWTPC 8212 
Intelligent Terminals 

New & Demo Models 

At Discount Prices 

Remaining Supply of 
SWTPC 8212 CRT Terminals 



EM-82 Video 
Terminal 

Emulates the 8200 Series from SWTPC 



~n.Ek a s Bsdeman; of Teohncei Syaiemi Consu*anti 
"OSS « a veoamerfc of Mtc'vwa/e 







DATA-COMP 

*\0. Box 7*4 HIXSON, TN 37343 
1-615-M2-4601 




Data-Comp— South East Media A 68 Micro Journal Are Divisions of CPI 
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For Ordering Call TOLL FREE 1-600-333-6800 

FLEX ™ OS-9™ Color Computer 
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>— » ■■ «he tiUtaanf fmunai 

■*■"'! * BaRKR*) Proma" that r'RX'ati > (tawn aauum d an rra-4 ilia* in nn n-a-aai ». ,t isi la iaa) uMli B> 

rust. * ^ 

l* 1 * Mam* rTOjraa that sae the ad ual read or lanu function la ".» t— '^' o-r Tin— B ■ ISM. all M*UU *i ji 
« uaa t -friendly nana. Fune-tiena pre- load . - . .- ,-•■->■.. ■..., ruai Catenary, la-latino run J"Ua*. Umm ton, 

I :: ■ - . ni . air. Ul ■"• i« ar* U<i Mat-ma and maUau, inrluUn* ill -■.■** n. w»a«i U O- .. ■ , 

IB u*era Can raad. write an) iaa the apanal 1a*A aa aa othn -.,:. lta», laaruwd ih— ruP< dir—tnry u not Alia*] 10 
taaFlB B B baw.il tract aero lino aw*/ KU**|. 

PUB an! Odor FIB IT9.M 



— aurtoral by PBftaBW aara u a Run neOaja taUored to the o*> naaai ■. i Uaa 
euppliarl an '■"■* -'■'-'■ ■■•':■-' .--■• tot tlftaillni It to dlak U -•- -n m . ■ i — .r — .- ■. :, m —iliim Twjiain . Ifa 
■Caad la iMMMlat . A full taalgiaphlg-B BUtot la pturtiW). along altH "ij i illaa' llta iXt^tura an) 8m? 1 — ilk 
ninlft DaaaalaBi ■-'-' fe"i aaJ a*iUol H-fa, IW. U)Un Uauoartaa IP laailtfuq FOUl. B BaOl PaMiaa L« mciiai] 
atuoi ib U"almBi - If i**.i ara a «i"-m n.>. tMa |*i4ka*a paWMal s^i cant flag amilllUn. Mat aaak Hill l|— »aj 
-*' ■ :"i i -i '- Handling, ate. (On <raa mart "oat arow* a> tr«|- raBkbUlUaa of 1M1 af4aaa>atkail Qaaana this 

partaat «t>. l«e OrMni OCEJWT »W 'SUrtln; P»mf . M yw idU U 1 mm Bt-n bataa ^a. Wa» It Jan! ha— a 

.-■■-?. .■■■-: ui|. 

i (■/ IMUAIOB &■ iraiiaaa i Bij ui QUa) JVI.V. 



Diaoi Mir TfOOT BcTMn to Uw RIbuc Bttli u« basil JD> rja-iir.. 

IBai« toe UifK. anv an] WUa Vana). all Prc^raaa on Tapa. 

— ■ tat aadlo »nai» U»-V11/«1I t D* !»■'»■'••" prinura 
•M tor ^w i -■ oraft-raa and otafuaa • niituaa 



OBff tta PrtWnW !*#• Rf 019* ar 



!-■'• 



rr.a* 

a.M 
a.M 



lot CM Roacltal ft Uitact 



A 'vi. . it i.«i U I "JUKI bbbb: nmjiap axUtft ilkn tin antrf >£ up o, u «» jar laj. aali if ahaUi BMf tuaalii up U> M 

Cttaiactaia. for « -, day of •:» aomn aat ia 1 (ha t— — ' " ll " ara )a>M. • Orajaae ttliaadar am ^ibdi dm/m mulr i^ij. 
and • '-■-. 1. -1' "-.— -.- u ■--.■.'-- arutfi can ta OUUaK to tf* Ji-raai or Printaa. 

fjft faff-O-OWJ 1 rWJW*' iFad. T^- I' - -v -.--.i ■ , ■- J<V HaaDa) IU.4S 
nu« i*-i---mj rHTaTN 11.NI >aaDa a> ItW.'iiir.'. pat Hak| :..)■. 



ajfaaaar (ma Da, «af<lP? 
kn BTraanaD Banc Proaraai that Mil halp )ou daal nth raaaareua punlaaa ra«iarU<o ImaraaT talrulatan . 

■»■' °£ Batutn. Currant Bond Tlald and tat* of Utturn U Bhtufity, Imh t,,,. !i: BnUaation CctadUala, -■■■ 



ora» c*»» in ubi «« - unMO' bash: -/ Hacri (ang . »nina . •llaai a mm or Ma rhara. ana Id nataa par aaoard. and 
« -■" tut Baord can fm Untad to tht Brat; « Oiar. Plaid ■Baaaa, ib to ?J Qm. Pit falUi FWVtU Qr-tUlB "' 'U B> 
input and updata. aaalMa Oitpait capabilittaa IncljJir-i coiput to Dlah PUaa b«gy nthar rrofraaa. Oanaa rUa 
- : . -■■-..■ ra-aniarlng tl« [ata. >r*l'. PUaa. ate Uaa -a. ■ ....- - .- ■. Boria, Balac* op anf -n ■ -.1 ■ n or Fialda. 

■tC. ail ei-:»7i.( KMUTVL TOXi UiatniCLaanB proaiaa aaaaplM oi "alllnj Uata and 

Traoinj aMaWB. Oja. [M.91 



- DIM I*TfJfjaXl aaaK _/ nacn. Uarq. tnutlnaa . a TiadltLenal- MxomiiMk 
Cluba. Ourtnaa. .--.... .. «tc. up -„ Bs,,. ,„_!, of ..awttaia -.■- Trial Balaaoa. Inaaaa atauaaani 

rn alloai up to Mt aoaoma and ■ Trial Balanca Ot '. ■■ r>. ■' ■■ '■ ~i a aai 1 ana -.- - 1 -. 1 1 linaa Ion), and 
ita aol optanatlana aa, taa rraal, uaad. Ac— ..n-- ara tracaabla 1.0 tha journal uanaactlon, laUch aay L-idiata 

nasru aa 10. ravm rf |*a- UMaaciiaai am crrani balarraa. am W-*V 



—— a Ml. B-raan enantal BOD rWlWaTB) 

l.B — ran. . . - on (ha ojLa-aaa* and M. (KBor n« arauaai uara tha it ■ ,< Paplay Sz u ma). puu acaaan 
aiartay anl all tin* (l.a.. afaat joj aaa ua anai jdu ja()i BBJBBtW lha taliq Ha a l ptfurUonal prlnbara. 

aHa-IAL Ooaor Rat STTIO Wi«i Hal and OB-B FTtV> S7*l.aa- OalflXt aTYtO (TW.B1 

- alia* dlractly chavaing thi Tan PUa, adUm aorda to v- •Uctionary. ate. h.aaW «rda In laaa 
1aX Oaur ruBL t*/* SltS.a* 



— tJop, laaaa Da* to aawai tBalaBT dUU — 
Tnr (nllowini FLEX utilltlra alloa lha bac*ia> -if MT dai dUk to my *au^» ataa JlaValiaa (UrMU ta lis -a. n~ 
to S"i. ale.). By aiaply Uiaartinoj ditiatiaa aa i- ; - ■ - ■ py dviiu, ■ . ■ -. ■ .. ...- » nay Da . — 1 -..-■.■ to |M 

piBBani -; - 1. lltt rjalan, any tlie, Sj inJ lu fiiMla Utri auann) OplaUTai Jf aiiy o( >Ja c*)aa iatlu_ia tiauaturta 

that mml ba dona naua lha maaal aopy rekainaa. 

,>i«i;t..-«. lankaratand* rortaJ •ostV ajotaa and --..-. aaapa ia> -ith niaa alraady oonlad ly launtatnlnj duanorlaa aaa 
OOf H Aon IM FaTdlvUg did! ai» ■Ian. aluunaclna houra of tadioai kattuard anulaa anl otnai taaa 11— mliij ■ ■■- , 

^wial it.iia- Ua: ■Jaa-.ljMla iuiln.' 1 ,i» * r-i .•--. ana. 

" p™»l>aa to raairurura oopaad T1.1M1' Dlaa Bx OopfUa. or nonaraj 1— -1 to ina hoat aiataa . 
ma- uaiutr tnat "rallnka" IM Bra. cnain or Omm/ at hard dla> iharaO; alUdiatuq Biaa 
fllai In-liaad «1. 4 PKoFa-. ,»."« (0- or '.■) 



: r- .-.. j - 1 :- - ■ a 

■Hbbbbbbj 

afM> diaplay boarda. ■aanaa aKUl 1— J. -Ba>p> atla. -f>>|n« KnrUaj rrKaa. 

--■ ■ - - - • of play. -■■.■- -.->■■.-•■• rr-tilal at 1-1-1-4 amaa. 

— ■ ■ - -1'- aM map ai aaa. Way O-lla or tUack. 

Tlua ia ena ef ina atrcDaaat OICXS ptjuora innUn un ai» aurxuapdat, aaluattal istj hv^ti i-dfa fiaiM Uain 

"rl.aV plataea at Kiohar .--..■ 

FLB* ml ODaor run «M.« 



aa an OOASK Hoaraa Ual plana a dial ia tanaa of althar oalortaa and farcantana od oaitKrydrataa. 
piotama and fata (C F CI) or araaa of (artDnrdraia. Prraam and Fat too* aa raanoaa of aarfc or tna aU haaac awl ■■■- 
• (aaaalJiaa, mad. aaat. aKaa ■OJA, fruit anl tat) for a apadfli: in±MdUal. 

taa. Ada. tknqM. PraSant «>•,/•. •-,- Sua. '..'-..'.- lawal Bad taaal *:l>: ■ lata tor naraal ■.-■■-■ *l an ulai Into 
acoodnt. feSaal «aUoM and •*.■..■.<■ ■■>;.•■ tor an/ naialit of 1 tnr aEora inVvlilual ara caloul*(ad. ahai a 1 anli. anal la 
4l-*B> lalinat aaut or loaa). aad a ealorla Flar lb aaraad upon pafai lha mnfa an) -Om ,nl««; , -rm raaaar of drta 
to raadi iKa •■iqhi joal la fro|actao. fa alarUna an] andmi tata of a|i» 1. Ioh 1* ^-il^M'rl anl a dally 
aith aac* da/a %aaaM 5.! a la-day pariod la pnntad. 

tUX - ':■:■: tMlUX - .■■■■■ 



■ova • J Ill PacKaaa ma tna UaUUB [«.,■!_., ,-.-., 

•> 1 -vi UUrXO aaaad Byalaaa (0 TIBnamlt and Mratn gjaa to Ard fror »v«r Oaaaitar aunaaj uli 

Main rtaaaa. othar j.i>*jc< Syaiaaa. ate. 

— VlriBaa Traranaauar. ---.;-.■■ .. .- ---■..; or CK 

— nillfl aallalllkl la-TTtnaana bad Uorfca 

— .■■■- _'i '-■ ■ ui 1.1 lyta :.*.■-* 

S3F1.F1 



um aut e>«, 



UauUi — FtMarful, I)ITt«ACTrvT. Dlaaaaaablai 
•ar, eiarUiia ..'Dana, Acaa aa-uiim; "-W7 Otntntor 

■pflrVVa/Mra and '■-" 0>» . 



.-■■...« naa.'AaOl -: ~. nap g, 
* !*■*«* Iroai 'Tanna Antraaa larala 



•aacry «ocu or IM PUaa tor 



1— j nn 1: ■■ Oily SM.f*. ..ir.-. m.Mi U »•-■: mlFin iiaj.aa, -„., 

■I- 



"Control PUa* of Ara* DafinlUona d-jrlna *ueoea*l<« 

vaaaar ate. Labal Pilaa provUtad an -.-U-rLTX FneO, F*OT. COkr Crjajwtar fua: 

qjaf.ai Of-fUHW 



PUaa. (win alao 

<-*■/ . „ t FUaai raplaoa 



'an keatlcna rf th laoal 



■Fin. aflDBOa — .jraaUy aitanda •-•» praac <M FlaaUallly of «TT10>r\rh. Ula>* KilUpla laal Blaa bo I- prlntirl u aa 
larga docuaan-t. Piovldaa far — ■■)!-■:. inronaatun Into :' ■ T*at Pila durlna prUitina (aura a* dlftarmt naaaa 




BjBaaU 
Provldaa tfia IRS r»o 

iuk am ojux nn nti« 



— An <BAS K -taaa.1. am SWai, 3*« -3ih -Built-in* Audit TIa"*---n. Qi— l V »— rT.i) 

tc. Ttua TUB* tTBiaaj ;^FU yui Dtcoaa u. nu,t nara*)' of yjta fieftaar* ■■>:.-. 



laa^K — a . 

Audit Tracking . 



UUrLD HyJ.avirfO; 



IPIaMJir - TtrOaarWr <ta«a^ 
fund aa tmllaitad naabar of 'u 
Collaq* Oar-irauci OoruMlun ualnj 
Pax Sort-in} tor nunaroua applUaUona; •'.-. 



rut» Van (Hi antu-. 6« 



An Datiuli 1*^1 aaaal 
■aat tor laV*J C-b-s-_«f Aataaa. In aatrana),- OwFlatt I B j a jal vr^ oj, BroataB -ill 
nuainaaa' asplioaiiora. aim) (tir bBbbjIb. 1 Nna >at OnLirad aattna- >a> a Full ••..-. 
. Ad-aocad faataraa 1Kb -Tabla Laalua>" aaaa mm— Taa on aaayi CDloan or 
majlatai, Saany Baaidant'. NKhlna lanajaga. tlua Frcrjraa la raar. ITondaa 



kBak ".'.■' - - ■ -..— !.-..-■ -- - ■■—. a*«. 

FIB anc — HI. OHor nn ,-•>■ PHL and !.■.=-■ --, 



-' 



aaatdiaaur -. ... ,-i lia in aii B/alana aiMa [ata la n a o — a t t Byaian. Foaalbly ona of tna anal, roaartlil (Hfa a-aUabla, Ihlm 
aaclUna linguaa* proqraa 1* ana41 *nou)ri to .-■•■- <n * a l aaVa aldad r daaa. yat prtudaa tha apaad ca* «-•.. an) mat 
lUaliad only by tra aaar'a Inaainatlon . Bipporta Baquantlal. Biararchial. •nd Oantja Vtai PUa Miueturaa, and haa 
nnual I ml if -»par*lnMa for tnnoa <aant Data baaaa Bay to-uaa rnaii^n i annua— loaBVU mutji, 

KBtl — BU> and Oalnr i:n llt.M I0BC • — FUR an) CoBar PIS - ~< :■ 

WBa MBBt BO BBBtUTa BBT. — naaai ALL Aooruitlm and ran ivnaa. BaajBtra FLC an* xmaici' 
T-aat aia Tina ■. -: j^raa trot an old, aaiahUar—l, it-ai> hoowi tor GBAer IIJH toBBBBB 
.--- Baa- aaavaaar part 1 - *•».»* Data ih_ B»aaaaaj Bart 3 - ■-- ■: 
- •»» ■»■> atnala Batrr dan fa B aar - ■**.*■ 



Lniapfrxal in>u> for 93aQ( FLB( 

iVC M.H 



b/V Bpf>*a Oaa 



llat.H 



Payroll J»».« 



rUat (ril BaJLfjr - :f.a. Baculfa* laajUT lrj>: a baale (LhlTLC.) 

4/C - rjtX (?95 JnlFLtt S»S H - FlO «« m/i» Jl« 

Ban InaBBt - FL» lit) OnlFLEt ()« nmajaiari 1 - ->-.« 9r») inirux f)4f 

fayroll - TJEK HK IBiift/S 1)K [aat - riXa DH jnlFU* KM 

Flataa apacify 1 ar I inch diak atan ordarlnj all aoftHarai 

Prat 




a OnaUtanta FUB rBAtnr it> f ia> 




HMX and Color rEJK f».M IJalrUBt 


i'* 


tux- .v.- cuor n*v si*.* rninti 


m« 


iuk a..- color iur tiaa.at ubbfub 


*i» 


FUDt anl Colar FLat (.«■.»( UbaTU* 


!^V 



-i-/ OW 1 if BBS aorda! 

r"" r fl - , aata Jo tna vaLalna Ihrojj'i -Jia rarunnar(~ anil* )C"i *ra Inpatuoq Taat with jour famrita alitor Ot 
BPBJB ia aora Wiar «.".i SpalUna O— i*-r* T it alio* yM !o look -Bp a aord fran Mthui ^our tailor or 
ao taat you (Djraa ,, |. r i afll - hi; . Yift rrPK JT in alU". Ine JRI.ilfJ Utility f-TUCti DpATtts* IT. tft» ril? 
Vtiiity aaaea). fa*. It AU*3 alloaa n>, no ohadt an] u«ilata the Taat attar pa. ara t^aahadi aUng MUi alloalft] |pu to ACC 
WFM 10 UM fxctlonary. *»laq _ •(uaatittaBl* MMda in tlta lait for avaluaeion l*tar. VI*" a ■ord In corneal" beBira 
CIWMtlng- or iqroriftOJ. Btc. bMLLI tint i*aKU • -Onu* kbrd nnUratf, ttaV, L- nMnai 3ctlrnary. than * ■y.ramal 
aord uic. and finally, any 'SpKial Knd Wat" <nu aay fan* apaclBal aFBUJi ..., .:i.-„ tht ..- .if Ball da> Bua-aea 
ayataaa. ~^ 

Rati a/p] OBlsar FUR i:ji i-, 

jDaT a Taat Foraaltar 

JDbT. a Ttat FOtnattar da-aJoi— 1 la- Ar. andaraor- provM* lama faai^aaa *ich — 1 . it a ladvaola addiUCn to aay Pl*a 

ijaan »ori-iir UWtij. WIT ia iltiieiiwl for tora-iiln-a Tut Oitpn 1* Dot Mtrli Klntara an' RVUM MM jutj* 

raaiteaai 

-Ouigait cha "monT-aT Taat to >ne a^ia, lor Mw analyala and rharoi. 

•Output taa "Fuwitvr I»i« u a n... mm far- uaa -iifi ina aaapUed FraBrr.OS Qa oraoia 

Tir t-* Prl^lar jil-_itttj-, imnon, p*-j*Tia oafujCB (UJ* tUllly la — ry jaafUl »> DBBBI 

or Ubi iiuitan by itMlr}. 

-tlaar .--"... <.•-.-■ roc *0*p(U>>l to Other Ptlntara (oraaa aat op (or Qpaon PC.-€e W-h ctaflraa) 
(IB) aaoadnal -Fr«il-> COntaol C u aaa - da-. (ucb. M OBllM go BBl uQ, .- ;_-. - . -,. T. WC- 

-A-i-aaaur niajanaatum Bw a TtuBIe eUtn* printed line. 

-Encludaa the aoraal Uaa width, aeraln. Indani. ,--iii n -m aoawa. vattlcat akip 
canterlra. nil. |u*Lifiraum, ale. 



— iUnla tiqUaa of Ua Taat 
• alao. a-d aorth tha pnea 



•laajauiart allh -BtTunura* aourt,- QtmHuMl rV9)l May U 4m tht Oov bt tM 

Flat and Qatar PUT S**.*¥ 



BBBUAUI IBIIIJa.. ■■Jail I 
Cur-Nti aamUait ■aU.'ll FW OlcUonar, «.! Mrm "a oroi «xJ loo. * n^uraa Di 1.1 raUtaiB; 
FUR a.^ Daor FUR Byamaa ajon tar OBLI fUB.BB 

•fail •Jaaa a.-a QirBf If- jaTM ona* LTU BUF ICM mrB UTK.l 



Alao. <tU 
KlaalUH, 



>■• ino>- cm both the PULH naaad and Color toae.in«i nai<-3 

raa itoorax (t»tm»t trunr Ctaaputar ratarrval Tarronal pEconn, ale. 



BT»a-*iia itoUu) b-cluOVq DM inaau 



paaiM. JTC-rraai — aaaiiraa mrnura raacal — i I . 



lentad to Faatal oOarta. 
Ta.li l-a inlaaitad aaauna oacauuliiiea. Mai -!!■.— s&nary Pile 



i ■-- .-■ r-.'-r -i. - u»- ... 'Jf ir, MM) 
tha inrtaalnn of oanar Palaa in 

liaJlaaW aaii 

FFarilxa -- pcli... an ind^ia*. uuaoarad. '-,• • .,:- toaraa- of a Paeral Source Taal FllB. Alloa .tewa tna napaU 
an unaa-a nc laroe paiqraaai. and prvulae rluaa aa to tna intaarlty of Ina pcooran. (uretiM *a Souroa <Oia! taiuuaa 

PtaR and Colar (UR — lach proarari !».*■ 

aa-TCAT — tltSfAl WOT Pajlinal) Alio-, reeding TST -bju-fli-t. WB HWD, and Dwllal Jaaaann Mb) oak* -rule oparalanq 
■"■•' "*" 1 -«. PUR <•", at PUS *.<J anth aaafi or 68*i Byalana. own ' -HI not partocai nUBClaa, tail. lan>aan tna 
prt-iran ami lha aanaal. ?*. ,. v .; a if! .lane of «ai>if41a*Ung * uanfPai bKlialaa VlllUff V UR aVKWrUli 'XVt 
Filae. anal tronaeit Tan nlaa «hen raigvaired. Alao IncluAaa a uaUn, BBr inaaaiyai in) fvaical OaaatiiUllty 

da id atta it aaaief to ad-a unua-al pronlaaa. 

US «^ OiBar PUS r !'-1 ■*' fta« a" )-.-■« 



and Li i a In, Lenoar In- Ua IB). -— a*tr—r .■«..-.-.■ 
SVaClal M Mia tuttatt. SIRXTU *a-ji:-.a IBjcrai. flrtBtlOVal Aaanatily. BIX. (Jjai. I.Baf UMlfBS Pajlrta* ■ BMl . UnF- 
oilanted tditor aa part of tn* Aa ■ ■dial rj — - . ,,. .„: ^aaEatinq aanual. rUB an* CDIbf fURt *JP"» ■*•£ «U.-» 

BM FJUtar SiV.aa v,'*ajrca, add ■ ,■■• 



D,ata- tana («fll>( FCB- ■). 



an? uatlna Uaabar — J-i-aa (aloe. Aaaaa I-aaaa tint. Load. Byraoru * Oar. ;»■-,. 
ath Arllfi.. lojlr. and : - • eio. 

IPNX1 PUB end CblnT BUR - ..- H" lonr year BBUnt. :.' n-' 

a*. » — <by sir— TTOttl ft 
Enter, edit, an* Aai— dj.lu rraiiaa -ath 

HCaSfa/ltl ind Hitachi NDSlll fCMOl tatl) vltn tna aaaa tunetioria ind laaiura* •■ MCI . 

'-'■>. anl Ouaar FUR - IBM 



I UalPLlT "jaak." tja-OapLW. r — 
RUB — ■•■!'«"■ e Blum Uatlrrj tea "Ja— • DBajllal auar H ijiaae raay i 
baale-.! Cutput u TBal or Tan. TUa TReTRO wA KaJAMI. -jjjh uatpui SJI1.4-. 



a ina >' **L - ■. i. -i • ^ UuFiat 




*""'V L*.jj*va atiia OaaUar .MuiaE . all |n 



FL/B — ft* »*h"a Trott) froa 

OBa r> ».-■.*,,( provldaa a totally IlliaaLUInt i- ■.:..- rjaaUonaant Cycla 

Typea. Poiniara, Onuol nruciuraa, ataca, a- ,B-. «9 --...■-. nanlnuiatlnn 

prortOaa Binala luaaara). ayawojoVlUrq, FK « iaaaUAr-; Sfl-ai« anaUtr- ■ TOll 

C — (By '--aa HeOjaBi) boa a tBu B ta ai aOCBO 

■alocaUnj Aeaxtila' 'jiil.j Uadac to* thaaa -■ 

BiUbl r.,ar. IT CoroUbf; aanaratai vary .rtlc/Unt object Wfla, Q-lpj, i»r<TF-It.- cl£a. ^la^e-TlX inTaT 
oparatlona- L.9 Unaa faatar than a * Hal [B8 -hen J*lni a j-n, ««aa Bynea Ina. d «1 T.B- aj— 
Floaia. etc. fur, >-- FUR. :.o.-< i ■ * iBaFUR HH.a 



----:" --1 IM . . -. , of Ua UfB 

PUB1 an ctaa- rial - (196. BB 



try an. 



Ttt IwaCaE, — BBtl-a One CtBapiiar ( IXtC CB-Lantadi) . 

Lurndeia FBatjU — r-CVaa oanralar IIPO fliandard). >alaad aacaaally 
■ixilabla laaojri'e* for aaeh taat. aUoatnq. oparauon on aai mnlnej 
tar aaiina SarUaairy. 



n.-rmnun B-ataaai ti>Ua a-alaa ■-... 
limae to ■—...-; .,-;, 



r nmu 



iuk r ■;:>--.-■ 



OBagaann PAaOi — For ISa parapraiiraAi.. IRC aaaad. laalai code CDaptlar. per leel-Tiae and FtO^aa* Caxilral 
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You have probably noticed that the 

s.ito List of strings found in the Entry 
Routine is used in the SCAM Routine, 
but in a little different order, and at 
TAB{28) there is the same nuiiber that 
was generated for each entry by the 
N-N+l in 2170- By using this number, 
you can edit entries from outside the 
program. This may seem inconvenient, 
at first, but it saves considerable 
memory and vcrks quite \*U. 

To Edit, you must first have the 
entry number. Use SCAN to find the 
bad entry, and write down the nuttier 
to its right . Have the correct entry 
ready. Press <BREAK>. Mow, if, for 
example, the check number should have 
been 1555 and the entry number was 
123, type in NU$(123K1555" and press 
CENTER?-- Or, if the amount should have 
been 5234*00 and the entry nuriber was 
112 then type AM(U2)=234.00 and press 
<EOTER>. Each string in line 6500 can 
be used in this way. 

The timing loops can be changed to 
suit your preference- I made them 
faster after 1 had used the program 
for a while. By increasing the nurrber, 
you increase the pause between prints - 
If you change them, remember to put 
the highest number with the line for 
the slowest timing - 

asms the mxsm 

One of the many reasons 1 had for 
doing my own program was that the 
inexpensive Bookkeeping Programs I had 
seen had no feature for job 
information, other than to make up a 
whol* account for each job. If you 
have a lot of small jobs, this can be a 
pain- Mot only does it waste memory, 
but it doesn't link with general 
categories well, Amounts are entered 
either to this account or that 



* 



GRAND SLAM BRIDGE 



o 



SHARPEN UP YOUR BRIDGE GAME. COM- 
PUTER BIOS YOUR PARTNER'S HAND 
AND PLAYS THE OPPONENT'S HANDS. 
RANDOM HANDS DEALT EACH TIME. 
CARDS, TRICKS. BIOS, AND CONTRACT 
SHOWN ON SCREEN. 



32K 



CASSETTE $19.95 



$ 



STOCK OPTION STRATEGIES & 



DEVISE YOUR OWN STOCK OPTION 
STRATEGIES. COVERED OPTIONS, 
STRADDLES. CALLS, AND PUTS. % 
GAINS AND LOSSES VS. FUTURE STOCK 
PRICES GRAPHED IN COLOR. EASY TO 
USE, NO DATA BASE REQUIRED. JUST 
ENTER FROM KEYBOARD. MENU 
DRIVEN. 



16K 



CASSETTE $14.95 



SEND CHECK OR MONEY ORDER TO: 

GREENTREE SOFTWRE 

P.O. BOX 97 
GREENWOOD, IN 46142 
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account, but not to both. 

The way HICRDBOOKS is written, jou 
can put information fro* ANY entry into 
at least two categories. And JOB 
could be changed to ITEM for more 
general applications. You can get 
figures from the same entry, even frcra 
the same amounts, for separate 
categories. For example, I can call 
for a total spent for materials, or for 
a total spent on one job. Even though 
the amounts are mixed, J can get both 
sets of information by using both 
descriptors. 

Lets get a little more specific. My 
expenses include materials, labor* 
truck, tools, office, personal, 
charitable contributions, and taxes and 
licensing. Rather than use numbers 
which 2 find hard to remember, I use 
three letter abbreviations s MAT, LAB, 
TRU, TOO, OFF, DRA (for draw), 00N and 
TAX. Job numbers start with J (J147 
etc.) if it is an expense. I use an M 
prefix (for "M"oney in the bank) if it 
is Income. (This actually mates 
another category of information to draw 
from.) You could have as many 
categories as you have entries if that 
is what jou need.) 

You have probably noticed that 
Listing 1 has Income Entry routines, 
but Listing 1 2 does not. This is 
another way to save memory, fy using 
an "Account Descriptor" to distinguish 
between Income and Expense, the same 
routine can be used for both tasks. 

Most of my data is Expense since a 
large deposit usually covers many small 
expenses. If your operation is sales 
oriented, you might have- more income 
entries. JOB* could be changed to 
SALE* . To keep tracX Of certain of my 
personal expenditures, which come fepm 
the "draw" account, I use fictitious 
job numbers so I can locate these non 
business items. 

MICBOBOOKS ia user friendly in the 
sense that once you know what you are 
going to do, you can do it easily and 
quickly- I'm sure that someone 
fcnowledgable in setting up books could 
get more out of it than I can. It is 
somewhat similar to a Single Entry 
Ledger, with the account descriptors 
paralleling columns headings and the 
payee descriptor paralleling line 
headings. With these, and the added 
JOB parameter, you can develop 
considerable utility, but it does take 
imagination* 

■BBOsaWBHO 

If the program is still too big to 
suit you, you can take out some more 
fat by altering some of the screen 
prompts, combining a few more lines, 
etc. Combining lines is a tedious 
process, but will remove a surprising 
amount from the size (it is a good idea 
to only compress ONE UNE at the time, 
then RUM the Program to see if you 
Introduced any problems). I have 
reduced it to below 1700 bytes by 
continuing to work on it in these ways, 
and would be glad to hear from anyone 
who has made it smaller yet* 

It was a little surprising to learn 
that renumbering it to 1 per line 
actually removes over 100 bytes- This 
is of little significance if you have 
32K, but that 100 bytes equals 4 to 6 
entries, which could make a difference 
in small memory. Use FEHM,<old first 
line number), 1. 

I have put Listing 2 plus a 1-7K 
version plus a 3.2K version with edit, 
tape nwtfgs, and a number of other 
bells, whistles and conveniences on a 



cassette. If you would Like to have 
this, plus a fairly detailed 
documentation, send $10.00 to the 
author, c/o this Pfegazine. 

Jin LaLone 

LISTENS 1 

1 CLEAR4000' POBOOKS 28 4369 

5 DIMNIJ?(200),DA5(200).PAS(200), 
AM(200),JO?(200),AC$(200) 
10 EM 

1000 ' MOW 

• 101ffCLS:PRIOT:PEl«T 

1020 PRINT" SELECT ONE" 

s PRINT! PRINT 

1030 PRINT <1> ENTER EXPE 

NSES" 

1040 PRINT <2> ENTER INCO 

ME" 

1050 PRINT" <3> MCNTH TOTA 

LS" 

1060 PRINT <4> YEAR TOTAL 

S" 

1070 PRINT <5> VIEW FILES 

n 

10G0 PRIWTiINPUT™ ENTER YOU 

R SELECTTCN";F 

1090 IFF<0ORF>5GOTOl000 

1100 ON F GOTO 2000,3000,4000,50 

00*6000 

2000 ' 

2010 ' ENTER EXPENSES 

2020 ' 

2030 ' SUB MENU 

2040 ' 

2050 CLSrFRINTs PRINT 

CHOOSE ONE" 

2060 PRINTtPRINTsPRIWrrPRINr" 

<1> HEW FILES" 
2070 PRINT; PRINT <2> EXT 

END FILES" 

2060 PRJNTiPfUOT.PftlOTiPRIWrsINP 
UT" YOUR SELECTION" ;A$ 

2090 IFAS« M 1"THEN2195 
2100 IFAS="2"THEN2500 
2110 IFAS<0ORA$>2THEN2050 
2170 ' 

2180 ' ENTER EXPENSES 

2190 ■ 
2195 thl 

2200 CLSsPRINT INPUT EXPENSES-P 
RESS <XX> FOR NUMBER? WHEM FI 
NISHED" 

2210 PRINT** last entry was:"NU$( 
N-l) 

2220> INPUT" NU«ER"rNUS{SI) 
2230 IFNUS<N>"XX M THEN2320 
2240 INPUT" DATE" ; DA? (N) 
2250 INPUT" PAYEE" ;PAS{N) 
2260 INPUT" AMOUNT ;AM(N) 
2270 INPUT" JOB *"7JO$(N) 
2280 INPUT" AOC0UNT;AC$(N) 
2290 INPUT' IS THIS CORRECT? <Y> 

OR «I>"?AS 
2300 IFA$- ,, BrTHEN2220 
2310 N=^+l iOOTO2200 
2320 PRINT LOAD AND REWIND TAPE 

2330 PRINT PRESS RECORD" 

2340 INPUT" PRESS <ENTER> TO CON 

TnWE B fR? 

2350 OPEtf'0",#-l, "EXPENSE" 

2360 esnm-ifH 

2373 F0RJ=1T0N 

2380 PRINr*-l,NUS(j).DA5<J),PA5( 

j),amCj>.jo$(j),/ic$Cj) 

2390 NEXTJ:CLOSE#-l 

2400 CLS:PRINre233 r "DATA IS STOR 
ED" ! FORT-1TO1000 ! NEXTT 
2410 GOTO1000 
2500 ' 

2510 ' EXTEND EXPENSE FILES 

2520 ' 

2530 CLS:PRINT TO EXTEND EXP 

E.MSE FILES" 
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2540 PRIWTtPROTTtPRIOT" l£ftD CA 
SSEHTTE CCtfTAIHING CUR RQ*T FI 

hss BUSSED to cftiE" 

2550 PRINTs PRINT* PRINT" REWIN 

l> TAPE-PRESS FLAX" 

2560 PRINT sPRIHTr INPUT" PRESS 

<EOTER> WHHI REMV;R5 

2570 ' 

2580 ■ LOADING 

2590 ' 

2600 Ct5:PRIMr@234/ , t£ftDING DATA 

2610 OPaTl* ,*-l, "EXPENSE" 
2620 INPSTTJ-lfMsFORJ-lTON 

2630 INP17T#-1,»I?CJ).DA$(-J)»PA?( 

J),AM(J),JO$(J),aC$<J) 

2640 NEXTJ jCL0SE#-1 

2650 CE£:PRltfTe233, H DftTfc IS L£AD 

ED" 

2660 EORT=1TOL000:NEXTT 

2670 GOID2200 

3000 ■ 

301.0 ■ ENTER IMXME 

3020 ■ 

3030 ' SUB MENU 

3040 ' 

3050 a£iPRIWTi PRINT" 

OCQSE CME" 

3060 PRINTiPRIWTrPRINTiPRIWr 

<1> NEW FILES" 
3070 PRINTsPRIWr" <2> EXT 

END FILES" 

3080 PRINT :PROTT j PRINT :PRHir:rNP 
UT" TOUR SELECnCtT;S$ 

3090 IFS$="1"THEN3195 
3100 IFSS-"2"THEN3500 
3110 IFS$<0ORS$>2THEN3050 
3170 ■ 

3180 ■ ENTER INCCME 

3190 ■ 
3195 H-l 

3200 CLS:PRI»T" £NPUT 2NOCME-PRE 
SS «XX> FOR tJUMBER? WHEN FI 

NISHED" 

3210 PRINT" last entry wmi"HU"( 
N-l) 

3220 INPUT" NUMBER-;NU5(N) 
3230 IFNUSfN)=' , XX ,, THEN3320 
3240 INPUT" DATE*rDA5(N) 
3250 INPUT" PAYER" 7 PA$(N) 
3260 INPUT" AMOUNT",-AM<N) 
3270 INPUT" JOB #>JO$<N) 
3280 INPUT" A2COUMT" ? AC$(N) 
3290 INPUT" IS THIS CORRECT? <Y> 
OR <N>";A$ 
3300 IFA$="N"THEN3220 
3310 N-N+lzGOTO3200 
3320 PRINT' I£AD AND REWIND TAPE 

3330 PRINT" PRESS RECORD" 

3340 INPUT" PRESS <ENTER> TO CON 

TINUE"?R$ 

3350 OPEfcTO",#-l, "INCOME" 

3360 PRINT#-1,N 

3370 FORJ-ITON 

3380 PRIOT#-1,NU$(J),DA$<J),PA$( 

J),AM(j),JO$(J),AC$(J) 

3390 NEXTJtCLOSE#-l 

3400 CLS;PRINTe233,' , DATA IS STOR 

ED" ; POCT=1TO10W s NEXTT 

3410 GOTO1000 

3500 ' 

3510 ' EXTEND INCOME FILES 

3520 ' 

3530 CLSfPRINT" TO EXTEND INC 

OME FILES" 

3540 PRINT i PRINT: PRINT" LOAD CA 

SSETTE CONTAINING CUR RENT FI 

LES ENTERED TO DATE" 

3550 PRINT SPRINT j PRINT" REWIN 

D TAPE-PRESS PLAY" 

3560 PRINTS PRINT: INPUT" PRESS 

<ENTER> WHEN READY"jR$ 

3570 ' 

3580 ' LOADING 

3590 ' 

3600 CLS.-PRINr@234r "LOADING DATA 

3610 OPEN ,, l",#-l/'lNCOME" 
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3620 XNPUT#-l,N:FOfcJ=lTON 

3630 INPUT#-1,NU5(J),DAS<J),PA$( 

J)^AM(J),JOS(J),AC5(J) . 

3640 NEXTJsCLOSE#-l 

3650 CLStPRINTe233 / "DATA IS LOAD 

ED" 

3660 FORr=ITO1000;NBOT 

3670 GOTO3200 

4000 ' MatfTH TOTALS 

4100 CLS:Ta«3 PRINT: INPUT" NAME 

ACCOUNT TO BE TOTALED ";B$ 

4110 CLSs PRINT: PRINT! PRINT* PRINT 

■ REWIND TAPE-PRESS PLAY" 

4120 PRINTs PRINT* PRINTS INPUT" 

PRESS <ENTER> WHEN READY" ; p.$ 
4130 CI£:PRINT$236, "SCANNING" 
4140 QWri".f-l, "EXPENSE" 
4150 INPUT#-l,N:FafcJ-lTON 
4155 INHJrt-l,NU$(J>»DA$<j),FA$( 
J),AM(J>,JO$(J),ACSCJ> 
4160 NEXTJ :Cl£6E#-l 
4165 FORJ-ITON 
4170 IF B$^\C$(J) THEN TWT4AM(j) 

ELSE IF B$=JO${J) THEN T=^T4AM(J 

) 

4175 NEXTJ 

4200 CLS^PRINT!PRINT8PRINr , T 

OTAL SPENT ON JOB* "BS, " IS S 

"T 

4210 PRINTaPRINTiPRINr;PRINTjPRI 

NTs PRINTs INPUT PRESS <ENTER> 

FOR MENU"; RS 

4220 CLScGOTO1000 

5000 CLS:INPUT* NOT P 

ROGRAMMED YET PRESS < 

ENTER> FOR MENU"; R?rQOTO1000 

6000 ' INPUT DATA 

6010 CLS;PRINT:PRDirtPRINTiPRIMT 

" REWIND TAPE-PRESS PLAY" 

6020 PRINTsPRINTiPRINTiINFUT" 

PRESS <ENTER> WHEN READY";R$ 

6030 CLS:PRINre234,"LOADIM3 DATA 
ii 

6040 OPEN" I" .#-1," EXPENSE" 

6050 1NPUT#-1,,NjFORJ=1TON 

6060 INPUT#-l,NU$(j> l DAS<a)*PA$( 



J) f AH(J),0O5{J).AC5{J) 
6070 NEXTJjCLOSE#-1 

6080 cls: print sprint" screening 

SPEEDS-CHOOSE ONE" 
6090 PRINT: PRINTs PRINT: PRINT" 

<1> LOW SPEED" 
6095 PRINTs PRINT" <2> H 

IOi SPEED" 

6110 PRINTi PRINTs INPUT" 
YOUR SELECTION";S 
6120 ON S 03106130,6190 
6130 CLS:FORJ=1TON 
6140 PRINT: PRIWT NU$ (J ) rTAB( 8)DA 
? (J) sTAB( 1 7)PA$( J) iPRINTAM( J) ;TA 

BC8)"JOB# M JOS(J)!TAB(17)ACSCJ) 

6150 PORT-lTO300aNEXTT 

6160 NEXTJ 

6170 INPUT" "PRESS <ENTER> FOR 

MENU";R$ 
6180 GOTO1000 
6190 CLS:PClRJ"lTON 
6200 PRINTjPRINTNU$(J);TAB(a)DAS 
(J)jTAB(17)PAS(J} 3 PRINTAM(J) ? TAB 

(8)"J0B# "J05(J)iTAB(17)AC$CJ) 

6210 FORT*1TO100:NEXTT 

6220 NEXTJ 

6230 INPUT" PRESS <ENTER> F 

OR MENU"jM$ 

6240 GOTO1000 



4 CLS 

5 PRINT" 



LISTING 2 



MICROBOOKS 
BY JIM LALONE 1 " 



7 FORT=lTO2000:NEJfT 

10 CLEAR5000:DIMNU$(230),CAS(230 

) , PAS < 230) , AMC 230) , JO$ ( 230) r AC$ ( 

230):»-l:T-0 

1000 GOSUB6000:PRINTei36,"<l> LE 

DGER"s PRINTS L68. "<2> TOTALS" iPRI 

NTe200. ,, <3> SCAN FILES" : PRINT@23 

2, M <4> UNASSIGNED":PRIWT$327, tsl 




XDMS- 

the time saver... 



If you'T* ready to really get loini uie out of your CoCo - Than it's 
time for XDMS! Tim XDMS Data Management System is designed to allow 
quiek and easy file definition, update and processing - All without 
programming! It will handle anything from bowling scares to inventory 
and can produce reporter inquiry* forms* screen and fila output, 

Multi-step processing: is controlled by English-like statements* either 
interactively or from a file* (This is MUCH more flexible than menu 
driven systems') Complex functions, such aa file merging, generation 
and summation of arrays, line calculations* subtotaling, selection, 
etc, are easily accomplished with "results oriented" instructions. 

Once installed* you will find XDMS applicable to a wide variety of 
uses* (You may even wonder why others bother with specific application 
programs when XDMS does it all 1 ) So put the joysticks aside, load in 
XDMS, and get some real use out of your CoCo - It's time has come... 



XDMS Data Management System (5" or 8" disk) . 
XDMS* Data Management System with DMS Utilities 



■* f f f * 



§179.95 
• 2*9,95 



WESTCHESTER 
Post Office Box 



Applied E 
ld7, Briarcliff 



Manor, N.Y. 



Systems 

10510 



All software is written in macro/assembler and runs under 6809 FLEX. 
CoCo users will need F- MATES or FHL FLEX, 64K RAM and 1-2 disk drives* 
Termsl Check, Money Order, Visa or Mastercharge. Shipment first Class. 
Add P£H S2.50 <«7.50 Foreign). K.T. Ret add sales tax. Specify 3 or 9-, 
Sales? Southeast Media 800-339-6600 Consultation! 914-941-3932 eves, 

FLEX Lfl < tradffUTk of Trchnicil System Catsultants, Inc. 
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COMPILER 

EVALUATION SERVICES 

The S.E. MEDIA Division of 
Computer Publishing Inc., is 

ottering the following 

'SUBSCRIBER SERVTCE': 

CCMPILER CCMPARISION 
AND EVALUATICW REPORT 

Due to the constant and rapid 
updating and enhanchment of 
numerous compilers, and the 
different utility, appeal, speed, 
level of communication, memory 
usage, etc., of different 
compilers, the following services 
are now being offered with 
periodic updates. 



This service, with updates, will 
allow you who are wary or 
confused by the various claims of 
compiler vendors, an opportunity 
to review comparisons, comments, 
benchmarks, etc., concerning the 
many different compilers on the 
market, for the 6809 micro- 
computer* Thus the savings 
could far offset the small cost 
of this service. 

Many have purchased compilers 
and then discovered that the 
particular compiler purchased 
either is not the most efficient 
for their purposes or does not 
contain features necessary for 
their application. Thus the 
added expense of purchasing 
additional compiler (s) or not 
being able to fully utilize the 
advantages of high level language 
compilers becomes too expensive. 

The following COMPILERS are 
reviewed initially, more will be 
reviewed, compared and bench- 
marked as they become available 
to the author: 

PASCAL "C GSPL WHMSCAL PL/9 

Initial Subscription - $39.95 

(includes 1 year updates) 
Updates for 1 year - $14.50 

S.E. MEDIA - CPI 

5900 Cassandra anith, POB 794 

Hixaon, TO 37343 

615 842-4601 
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NTWYOUR SELECTION" I SiIFS<10RS> 
4THEN1000 

1010 CNS 00102000,3000,4000,3000 
2000 GOSUB6000!PRIOT@168, "<1> NE 
W FIL£S"iPRrWTf232,"<2> EXTEND F 
I LES" s G0SUB6 1 00 ! IFS$»"1 "THEN2100 
2010 IFS$="2"THEN2020ELSE2000 
2020 GOSUB6a00:rPA$-'*y" , rHEW2100 
2030 IFA$-"H N THEN2400EL£E2020 
2100 CLSiPRINT" INPUT EtfTRlES - 
WHEN FINISHED REPLY <XX> TO <N 
UMBER?>"2 IFS$="1"THEN2105EI£E! PR 

INT" last entriest "NUS(N-2)" fc 
"NU$(N-1)3QOTO2110 
2105 S$= n " t PRINT 

2110 INPUT" NUMBER" r NU5(N) i IFNU? 
(N)="XX*"rHEN2180 

2120 INPUT" DATE^;DA$(N)sIFDA$(N 
V"CC"THEN2110 

2130 INPUT" PAYEE/ER**;FA$(n):IFP 
A$ <N) 3"CC"THEN21 10 
2140 INPUT" AMOUNT" rAM(N)t INPUT" 
JOB#VJO$<N)iINPuT" ACCOUNT";AC 
${N)sINFvT" IS THIS CORRECT? <Y/ 
N> H ; A? t IFA5- ,, N"THEN2110 
2170 S=N+1:GOTO2100 
21S0 CLSs PRINTS 129, rsINPUT"HOW M 
ANY SAVES"jSA:IFSAp0THEN1000EI^E 
PRINT9225, "IOAD AND REWIND TAPE" 
sPRIWn?289, "PRESS RECORD"* PRINT! 
INPUT" PRESS <ENTER> TO CONTINUE 

2300 O£sF0R\felTOSArPRINT3233, M S 
TORING DATA" 30PEN"Q'\#-1, "LEDGER 
" t PRINT#-1 , N* FORX=1TON: PRINTf-1 , 
NU$(X),DA$(X),PA$(X),AM{X),J0$(X 
) , AC$ (X) 5NEXTX!CIOSE#-liFORT-lTO 
1500! NEXTT r VsCI5 ! PRINTe233 r "DATA 

IS STORED"iFORT=lTO900sNEXTT!GO 
TO1000 

2400 REM EXTEND LEDGER 
2420 CLSsPRINTe4,"TO EXTEND LEDG 
EF FILES" s PRINTS 7, "LQftD CASSETT 
G CONTAINING FUAS QOTEREn TO D 
ATE M iGOSUB6200HXTO2100 
3000 REM TOTALS ~ 

3010 GOSUB6000: PRINTS 1 04, "<l> SU 
B TOTALB"iPRINTei68, "<2> BALANCE 

SHEET* iPRIOT@232,"<3> UNASSIGNE 
D" : PRINT! PRINTS 0OSUB61 00 1 IFSS="1 
"THEN3100 

3020 IFS$-"2"THEN3205 
3030 IFS$="3"THEN3300ELSE3010 
3100 GOSUT36800*IFA$='Y M THEN3130 
3110 IFA$-"N"THEN3120ELSE3100 
3120 CIS: PRINT@33j "LOAD CASSETTE 

CONTAINING FILES TO BE TOTALED 
n iOOSUB6200tCLS 

3130 T=^! INPUT" JOB OR ACCOUNT"; 
BSsIFB$«"END ,, THEN1000EL£EsFORX=l 
TONs IP^^C$CX)THENT=^r4AMCX)ELSE 
I FB$=C0$ ( X)THENIWIHAM(X) 
3140 NEX^XEPRXNT ,, TOTAL IN "B$" 
ISi "j iPRlNTUSlDC , '5$f*##.## ,, jTi 
GOTO3130 
3200 OOTO6300 
3300 GOTO6300 
4903 REM SON FILES 
4020 <?XBUD6800aFA$= , V , THEN4050 
4030 IFA*?="N"THEN4040ELSE4020 
4040 CLS: PRINT" LOAD TAPE TO 

BE SCANNED" s PRINT :OOSUB6200 
4050 O£:GOSUB6000:PRINpai69,"<l 
> SUM SCAN"tPRINTe233,"<2> FAST 

SCAN" ! QQSUB6100 ! IFS$="1 "THEN407 


4060 IFS$-"2 ,, THEN4090ELSE4050 
4070 a£iFORX-lTCNjFCiRT-lTO170!N 
EXTT !GOSUB6500:NEXTX! Q3TO5600 
4080 CLS!FORX=1TON:FORT-1TO00;NE 
XTT: GDSUB6500 1 NEXTX J GOTO6600 
5000 GOTO6300 

6000 CLS!PRINT@75, "SELECT ONE" iR 
ETURN 

6100 PRINT€360 t ;!lNPUT* t YOUR SELE 
CTCON" ; S$ t RETURN 

6200 PRINTs PRINT: PRINT" REWIN 

D TAPE-PRESS PLAY": PRINT s PRINT 1 1 
NPUT" PRESS CENTER? WHEN READY 
■|R$iCLSiPRINTe233, "LOADING DATA 



" lOMTI" , *-l, "LEDGER" i INPuT#-l, 

MtFORX-lTON! INPUT#-1^NU5(X>, DAS< 

X),PA$(X),AM(X> J ,JOS<X),ACS(X)iNE 

XTX 

6210 CDDSE#-li0^sl , RINTe233, "DAT 

A LCftDED" ! RETURN 

6300 CLSiPRINT" NOT PROGRAMMED- ? 

PORT=1TO900 1 NEXT IGOTO1000 

6500 PRINT iPRJMTAB(l)NV$(X); TAB 

( 9) 7 sPRINTUSING' , ####.##";AM(X); 1 

PRINTTAB( 1 7 ) PA$ (X) s PRINTTABf 1 )DA 

$ (X> ,-TAB< 12 )AC$ (X) ?TAB< 17 ) "JOBt 

"JOS(X) jTAB( 28>XtRETURN 

6600 PRINT! INPUT" ANOTHER SCA 

N? <y/N>*';S$!lPS$= ,, Y"THEN4060 

6610 IFS$= ,, N i,, rHEN1000EISE6600 

6300 CLS = PRINT£228, ysINPvT"IS U 

PE LOADED? <Y/N>"rA5*RETURN 



LANDER GAME 



4K UMQER GAMS 

Hey 4Ker, tired of aU the C0C0 
articles requiring- 1€K or more? Well, 
here's a Lunar Lander type game that 
uses Color Basic and only about 2K, so 
it should run on your machine. 

The game ha a five difficulty levels 
which determine the size of the landing 
pad, the amount of fuel on board, and 
partially determines the strength of 
the gravitational field. The landscape 
changes each time you play, and the 
ship will appear at a different 
location, but will always be in the 
upper half of the screen. The ship 
will have random vertical and 
horizontal motion when first appearing. 
It is controlled using the Left and 
Ri$lht Arrow Keys for aideways ■Jflfcfcsj 
and Number Keys one to four for 
vertical rocket, thrust. You must 
guide the ship to a safe landing on Che 
blue pad . To do this, the ship must 
not be moving any faster than five 
units down and one unit sideways, in 
either direction. 

Now let us examine the listing. 
Line 3 has the POKE 65495,0 speedup 
command- If your computer cannot 
handle it, emit this line. lone 6 lets 
you input the difficulty level- Note 
that one is hardest while five is 
easiest 4 

Lines 12-63 draw the landscape and 
landing pad. Line 12 produces a 
random number that determines where 
the pad will be placed . Lines 15-18 
set some variables to zero allowing the 
game to replay without having to 
restart. Lines 21-24 determine how 
long and high any ground fieature will 
be. Lines 30-36 set the ground layer 
and lines 39-42 build it up to make- a 
triangle shape- Note that these are 
variables, so jou may get some strange 
shapes (what do you expect on an 
unknown planet, anyway! ). 

Line 45 sets the location for the 
next ground fieature and line 48 checks 
to see if it is time for the pad to be 
drawn, or if it has already been drawn 
as controlled by the J variable. If 
the pad has been drawn or, it is not 
yet time for it, line 51 sends the 
program back to draw the next ground 
feature. Otherwise lines 54-63 draw 
the landing pad. Line 54 and 58 
control the size of the landing pad. 

Lines 66-69 pick the random 
location for the ship. Line 72 
detarmines how strong the gravity field 
will be- Lin* 75 determines the amount 
of fuel you get, which ranges fron 250 
to 450 units'. 
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Lines 78-81 picks randan side and 
downward motions for the snip. If SV 
is negative, the ship moves leftj 
positive and it moves rignt- If SV 
equals *ix t it will have no side motion- 
Line 34 draws the ship the first 
time it appears. Afterwards, "the snip 
is controlled via the keyboard. This 
is done in a loop that starts; at line 
87, where the ship's downward velocity 
is increased by the gravity field 
divided by three. Do not ask why I 
used this particular formula, it just 

Seemed tO WOrk OUt nicely. 

Line 90 will skip over your keyboard 
control if >ou have used all your fuel, 
but the graphics will be continued 
until the bitter end. 

Lines 93-102 are the sub loop that 
checks keys one to four. B/ using the 
PEEK coraro&nd, the keys can be held 
down for continuous engine thrust. 
Line 99 checks which key, if any is 
pressed, and makes the value of BX 
equal to BU, which is the rocket burn. 

Lines 108-111 use the PEEX conm&nd 
to check on the arrow keys and make 
the adjustments to the side velocity. 
They also have a sound effect and use 
fuel. 

Line 114 figures out your vertical 
velocity status if the main engine haa 
been fired. NDte that the burn fector 
remains constant for each key, but its 
effect is determined by the strength of 
the gravity Held. As the field oetA 
stronger or weaker, the burn will have 
less or more effect* 

The altitude readout is determined 
by the Y, or height carponent, of the 
ship times ten- If the snip's height 
is less than 50, it is multiplied by two 
to make it look a little better. If 
the Y component reaches 28, the ship 
has hit bottom and crashed. 

Line 123 adjusts the ship's vertical 
visual movement in accord with its 
velocity. Peel free to change the 
parameters, but remember you have less 
than 30 points to work with. 

Lines 126-132 control the ship's 
sideways movements. Line 135 checks to 
see if the ship has reached either the 
top or sides of the screen. *rhe ship's 
motion will continue unless you or 
gravity do something, but it will 
happen off screen as line 135 will make 
the program skip over the graphics 
until the ship is back within the 
screen's limits - 

Line 138 actually draws the 
spaceship. Line 141 checks yyar fuel 
and sets it to zero if you burned it up 
in the last loop- Line 144 gives the 
readout of the various fiactars found at 
the bottom of the screen. F is fuel, A 
is altitude, S is sideways notion, V is 
vertical velocity, and G is gravity field 
strength. If V is negative, you are 
going up. R>sitive and you are coming 
down- When you land, 5 cannot be 
greater than plus or minus one and V 
cannot be greater than five. 

Line 147 again checks to see if the 
ship is on or off the screen. If off, 
you loop back to 87 to start another 
cycle. If on, lines 150-1&7 check to 
see if you have hit the ground or 
landing pad. Ttus is done by checking 
the color of the three points directly 
under the ship, and one on each side 
when it is above a certain height. If 
they register white, you have hit 
something. Below a certain height the 
three points under the ship are the 
only ones checked but with a 
difference. Instead of being 
immediately under, they are the next 
level down- I had to do this because 
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of the way CoCto handles low resolution 
color blocks- In a four block square, 
each color has to be the same. What 
was happening was when the ship was 
one level above the pad, it would turn 
the pad yellow, matching its color. 
Since the computer was only looking for 
white and blue, it would take no action 
and the ship would continue down and 
through the pad- To prevent this, I 
adjusted the points to be checked so 
they would be in a different square 
than the ship. The ship now lands one 
level above the pad. 

If the ship haa not hit anything, or 
landed, line 168 resets the points so a 
new position can be displayed. Line 
171 is used after the first time the 
ship is drawn so that the computer will 
accept keyboard inputs, and 174 sends 
the program back to start the loop 
over. 

If you hit the ground, line 177 lets 
you know and 190-192 tells you what you 
did wrong. Lines 195-198 produce a 
sound effect and 201 moves yx to the 
play again option. 

If you did land on the pad, lines 
204-207 make sure you were within the 
given parameters, and if not, sends you 
to line 177 to tell you that you blew 
it. Line 210 congratulates you if you 
did it right, and 213-216 produce a 
sound effect. Line 219 again asks if 
you want to play again. If sou choose 
to play, you go back to line 6 and can 
choose a new level. W>u automatically 



get a new landscape- If you choose 
not to play, line 225 shuts off the 

high speed poke and ends the game. 

That, in a cracked nutshell, sums it 
up. If you need a justification of 
what is going on, pretend you are 
trying to remote control ships to a 
safe landing after they have warped out 
of hyperspaoa. Me all know how tricky 
hyperspace is, so over which planet, 
and where over it r and going in what 
direction is alt left up to chanoe. lh 
each ship is a cargo of gold, or arms, 
or gorgeous members of the opposite 
sex, or whatever jou little heart lusts 
for. TO reap the rewards, you must 
bring those little ships in safe and 
sound. 



1 RD4 LAKEGR Br" EOBQO 1 TOSCftNI 

3 POKE65495,3 

6 INPuT"LEVEL 1 HARD-5 EftSr"/H 

9 CLS0 

12 L=RMD(42) 

15 E=0;RT^0'J=fl 

18 P=0:G=6 

21 B-RND{27);IF B<7RIBN210R IP E 

>50 and B-C12THE2421 

24 D=RND{28)iIF LX14 OR D>27THEM 

24 

27 FOR C=29 TO D STEP-1 

30 FOR J>e=E+F TO B*B-G 

3 3 IF A>63TOEN6G 

36 SLT(A,C,5):NDCTA 

J9 F=F+liG=Gfl 

42 NEXTC 




QUESTION 

WHEN WAS THE 

LAST TIME YOU 

HAD A TALK 

WITH YOUR 

COCO 
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THE SPECTRUM VOICE PAK - a CoCo voice 
synthesizer - is a complete phoneme based voice 
system that uses the famous VOTRAX SC01 chip 
synthesizer in a cartridge style pak. ft provides 
an unlimited vocabulary with automatic or user 
supplied inflection, plus four programmable levels 
of pitch With a single line of code, THE VOICE PAK 
adds speech to any BASIC program in minutes. 
The system comes complete with user instructions, 
software cassette with 16K and 32K - DISK/TAPE 
versions, a text to speech scanner translator and 
a Word Manager that constructs and edits custom 
user dfctionaries. The unit is ftJy assembled tested 
and ready to plug in and talk, talk, talk. $69.95 

ALL ORDERS PLUS J-3.00 S/H - MY RESIDENTS ADD SALES TAX 

SPECTRUM PROJECTS / 93-15 68th DR / WOOOKAYEN NY 11421 / 212-44 1-2807 
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45 E-E+B 

4S IF E>-L AND J-0IHEK54 

51 G0T018 

54 FOR K-1TO H+4 

57 SBT(B+K,2%3) 

58 IF E4*0»>63THQ*63 
60 NECTK 

63 B-E*KsJ«l!GOTO18 
66 M=RND{60)!tWaiD(ll) 
69 IF M<4 OR H<3 THQK6 
72 GR-RND<12)-HiIF GR<=«4THa* GR- 
3 

75 Fl>«20&tH*50 

78 SV-RND<ll):IF SV<»51HEM SV— S 
V vssr IF SV>6 THEN SV^V-5 EU5E 
SIM 

81 VE=RND(30) 
84 IF PT-OTHBn38 
87 BXH3iBU-«iVE-VEt-IOT<GR/3) 
90 IF FU<^THEM114 
93 FOR P&*339 TO 342 
96 BX^X+BX+I 

99 IF PEEK(PE)=239TH£N BU=eXsSOU 
ND90-(BU*2),1 
102 NEXT PE 
105 FU-FU-BU 

108 IF PEEK ( 343 J-247 THEN SV^SV- 
1*1 SOUND100, 1 : Fl^fU-1 
111 IF PEEK(344)=247THEN SV=SV+1 
sSOUND100. 1 iFU-FU-1 
114 VE>INT(VE-BU*.5) 
117 AL-(2B-H)*10jIF AL<50 THEN A 
L-(23-N)*2 
120 IF N>27THEN177 
123 IF VE>0 AND VE<2OTHEM N-TO-1 
EI^E IF VE>-2OTHEN »>N+2EI£E IF 
VE<0 AND VE>-20THEN t**i-lELSE IF 
VE<«-2»IHEN N=N-2 
126 IF SV^THEN S^;G0TO135 
129 S=IWr(SV/2)iIF 5-CTHEN S«l 
132 M-rtt-S 

135 IF M<-2 OR M>60 OR N<=0THEH1 
44 

138 SCr(M-l,PHl,2)iSCT(M+ljN+l,2 
)3SET(M,N,2)iSET(MH.,»fr2,2)iSET{ 
M,N+-2, 2) sSET(M-l, BW-2, 2) 



141 IF FU-<0THEH FU-0 

144 PRIOTe4e0, ,, F ,, ;FU; S PR2lTO4a5, 

" A";AL;ifHItfT$4»," S-jSVuPRIN 

T3499," V"jVE;:PRnn$504," G";GR 

■t 

147 IF M<=2 OR M>60 OR C*c=«THEN8 

7 

150 IF »«25THEN ZX-1EL£E ZX-0 

153 IF S-25THH* CV-3EI5E CV»4 

156 IF S-25THEN BW-4ELSE BN«3 

159 FOR QW-ZX TO CV*H*-POlHT(rt-2 

-KJW,fWJN> 

162 IF ER=5 THEN 177 ELSE IF ER- 

3 THEN 204 

165 NEXT QW 

168 RESCT(M-l,K+-l)iRESET<M+l,W-l 

)?RESET(M,N)sRESBP(W-1,N+2);RESE; 

T<M,N4-2bRESST(M-l,St2) 

171 RT=1 

174 OOT067 

177 PRD«g0,"CRASIIEDI"r 

180 IF VE>5AND AL<19THENPRINT" G 

OBMG TOO FAST"j 

183 IF FU<^THENPRI»r" RAtf OUT 

F FUEL"; 

186 IF AL>19raEMPRIlfr RAN RIGHT 

INTO IT*r 
189 IF AL<19AND ER-5THENPRINT" M 
ISSED THE PAD" j 

192 IF SV<-10R SVUTHENPRINT" TO 
MUCH SIDE MQTICH" 
195 FOR <J-255TO 1 STEP-3 
198 SOUND U,1:NEXTU 
201 GOT02L9 
204 IF VE>5THEN 177 
207 IF SV<-10R SV>1THEN177 
210 PRIOT00, "GREAT LANDING"; 
213 FOR U-10O255 STEPS 
216 SOUND U r liNEXTU 
219 PRim ,H TRY AGAIN Y/lTiItfrVT 
DS 

222 IF D$=s*Y"THSM 6 
225 POKE65494 r 0!END 

Robert Tbscani 
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TRS-80+ MOD I. III. COCO. TB9/4a 
TIMEX 1000, OSBORNE, others 

GOLD PLUG - 80 

Eliminate disk reboots and data loss due to oxi- 
dized contacts at the card edge connectors. 
GOLD PLUG 80 solders to the board edge con- 
nector. Use your existing cables, (if gold plated) 



GOLD PLUG 80 Mod I <6) 

Keyboard/El (mod I) 
Individual connectors 
COCO Disk Module (2) 
Ground tab extensions 

Disk Drives (allR.S.) 
Gold Disk Cable 2 Dnve 
Four Drive Cable 
GOLD PLUG 80 Mod III (6) 
Internal 2 Drive Cable 
Mod III Expansion port 
USA shipping 51 45 
Foreign $7. 



«/ 
& 



$44.95 

15.95 

7.95 

16.95 

INCL 

7.9S 



»f a nr 

■ 1 0, 9 - 
9 . 9 5 - 

-j a nc 



A 









29 95 
39.95 
54.95 
2995 
10.95 
Can/ M ex $4. 



TEXAS 5% TAX 

Aak your favorite dealer or order direct 

E.A.P. CO. 

P.O. BOX 14 
oMEirour. KELLER, TEXAS 76248 
(817)498-4242 MC/VISA 

+■ trademark Tandy Corp 
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THIS 'N THAT 



gained an excellent reputation for the 
quality and support of their products. 
We will have a full review of the NDC-1 
next month, but, in the mean tine, here 
are sane of our initial findings. 

F 5. D is primarily ONLY selling the 
PC Board and a 'special' chip (the 
FDC-9216B), with instructions, for 
$49.95. The PC Board will have Gold 
Plated PC Lands for the Edge 
Connector, and the circuitry consists 
of only about two dozen parts, total, 
including 14 ICs and a Crystal, with BD 
Adjustments, It will take an 
experienced "Solderer" less than two 
hours to assemble the unit once he has 
the parts rounded up* and the layout 
is 'spacious',, so the soldering is not 
at all tedious. Ours worked the first 
tine we plugged it in. *te used a 
standard Western Digital Controller 
Chip, and Had. NO problems with Radio 
Shack or FLEX, but was unable to 
format an OS-9 Disk due to a chip 
timing problem. A call to F i D, and 
some checking and discussions, led to 
the discovery that os-9 works fine with 
the Radio Shack iiupplied pis* 
Controller Chip, but NOT with the 
standard WD Chip. Also, the RflC-1 is 
designed to use either an F b D ROM 
(FADBUG-C, $25.00), OR the standard 
Radio Shack Disk BASIC ROM (about 
$35.00, depending on jour source). So 
far, we are EXTREMELY pleased with this 
Color Computer Di-sk Controller. 

"This North 1 

It is the 'nature of the Beast" that 
MOST color Computer Owners are new 
Computer Users, and therefore have 
MANY questions about much of the 
'stuff that many of us consider to be 
•Old Hat'- Yet, there is also a HIGH 
percentage of COCO Owner? that are 
"mature" Computer Users; who 
understand Disk Systems, Assembly 
Language Programming, etc. With Color 
Micro journal's thrust towards USABU5 
IHFORMATIOH for the Color Computer 
User, we must provide a broad coverage 
of material. 

The large majority of CoCo Owners 
have, and are fairly fa*rtu*r with, the 
Tape System and its operation, but the 
Disk Systems open up a whole new can 
of worms. We have an Article this month 
that should help those considering the 
purchase of a rii.sk system by answering 
some basic questions about Disk 
Systems, and especially the CcCo's. 

For the BASIC Users, we offer a 
"Lander" type of Game for the 4K 
Owners, and a Small Business 
Bookkeeping System for the Tape Users. 
Finally, we have the first part of an 
Assembly Language "Linking Loader" 
System which can be Assembled for 
either Radio Shack DOS or the FLEX 
DOS. The Source Code, which is -fairly 
lengthy, will be presented next month - 
With the Microcomputer systems moving 
more and more towards the "Large 
System" procedures of modularized 
structures, and the use of Relocating 
Assembler/Linking Loaders, we have 
oriented this Article towards both 
providing some background irifiormation 
on Linking Loaders, their use and 
operation, and then will provide the 
Program that will allow you to use the 
concepts in building up a "Library" of 
"Linkable Modules" which can be 
included in your Machine Language 
Programs as needed. 
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SUPER 
SALE ON 

NEW DISK DRIVES 

As law as $199.oo with 
Power Supply and Case 

Plus 6 Month Warranty 

Even more Savings!! 

Color Computer Controller $139.95 

Color Computer Disk Drive Kit £349.95 

Diskettes from$19.95 

Disk Drive Head Cleaning Kits. $Call 

Disk Drives Cleaned* Aligned ATested $29.95 

Case And Power Supply 

Single drive $49.95 

Dual drive $79.95 

Unadvertized Specials $Call 

Call us today!! 

(617)234-7047 

We welcome • Visa/MasterCharge TRS-80 trademark 

•Checks (allow 2 weeks for clearing) Tandy Corporation 

•C.O.D. (add $200 per shipment) 
Shipping; Please call for amount. 




TRUE DATA PRODUCTS 

195 Llnwood Street, P.O. Box 546 
Linwood, Massachusetts 01525 
(617) 234-7047 
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We are receiving more and more 
requests for "Hardware" mformaticn and 
PROJECTS! Basic Digital Electronics, 
information on the "innards" of the 
CoCo such as the SAM Qiip. PIAs, VDG, 
A/D and D/A conversions, the Memory 
Chips and Addressing Methods, Video 
Systems, Disk Controllers and Craps, 
etc* Me also see a lot of interest 'for 
information about "adding more 
capatdlity M to the Color Computer, such 
as a Hard Disk interface. ACBVs, r-g-d 
conversions, etc. How about acme of 
you "Hardware Hackers" giving us a 
call, or drop us a note. Vfe are also 
receiving a lot of requests for "basic 
information"; BASIC Programs for 4K 
systems, Methods for using the Tape 
System for File Storage and Retrieval. 
etc., etc.-, etc. 

CDCb POWER . . . 

Some of us have been "preaching" 
about the power of the Radio Shack 
TRS-80C Color Computer since it first 
hit the streets, because we KNOW the 
capabilities of the 6809 CPU that 
resides under the cover of this 
Computer. While the 280 Series CPU 
Chape are very good devices, they have 
been "out-dated" by what has been 
learned during the last 10 to IS years 
of USING Microcomputers, and by the 
progression of Programming Methods 
over this same period of time- in the 
vast majority of cases, the Z80 has 
been strapped to the CPM Disk 
Operating System, which SHLL restrict* 
the Z80 to the old 8030 Instruction 
Sub-set, which makes NO use of some of 
the 380 's more powerful capabilities. 



One of the most illuminating 
comparisons between the two CPU chips 
can be found in the operating Systems 
available for them. While probably 90* 
of the Assembly Language Programmers 
in the US has been working with the 
Z80 for better than 10 years, they are 
JUST fiTJf beginning to develop Multi- 
User, Multi-Tasking Operating Systems 
for that CPU (such as Oasis, Xeia, 
Zenix, etc.). Less than a year after 
the 6809 hit the market, there were 
TWO good Multi-User, Multi-Tasking 
Operating Systems available for the it; 
OS-9 and UniFLEX. Mow, as I am sure 
most of you are aware, OS-9 is running 
on the Color Computer- 

Another indication of the power of 
the Color Computer is the number of 
them purchased by "Technical* people; 
especially those in the Space Industry. 
From the Engineers through the 
"Technicians", the Color Computer 
appears to be their primary choice. 

While it is extremely powerful, it 
also has seme limitations. The biggest 
limitation is the use of Software in 
providing the Serial Output and 
Keyboard Interfece- Thia really shows 
up with the OS-9 Operating System, 
which much prefers to be ""doing its own 
thing" rather than having to look 
through rows and columns for a key 
from the Keyboard, or ""punch bits" 
through a PIA to provide a Serial 
Output. EVen with this limitation, os- 
9 still provides more inherent power in 
an Operating System than is available 
for any other Ifcroe Computer, and most 
Business Computers. 

Overall, the Color Computer provides 
more Power for the Dollar than AHY 
other Computer available; Home or 
Business, Micro or Mainframe. tfc>, the 
Color Computer will not replace the 
Business Computers, small or otherwise. 
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The Color Computer's slot in the 
■scheme of things" is in the area of 

HXJCXEDQbT. 

The first area of Learning that the 
Color Computer fills is that of 
"personal computer Education", 
EVERYONE knows that "Computers" are 
the "wave of the future" . They are 
appearing EVERYWHERE: on the job, in 
the home, in college; in household 
appliances, in cars, in the grocery 
store cashiers line, at the 'instant 
banker' location, in the drug store, in 
the auto repair shop, etc., etc- 
"John Doe" buys a "Personal Computer" 
just to keep from being left behind in 
the world he lives in. For around 
$300, he can "begin to "learn about 
Computers", and for less than $2000 
total, spread over a period of time, he 
can have a Computer System that 
provides an introduction to the use 
and operation of some of the most 
sophisticated and powerful Operating 
Systems in the world, along with the 
availability of equally powerful 
Programming Tools. 

The other area of EDUCATION which 
can be fulfilled by the Color Computer 
is that of "Formal EHueation ,, ; i.e., in 
the Schools. Here, even more than in 
the Home, COST is a major 
consideration. Again, the Color 
Computer is "untouchable" as far as 
capability versus cost is concerned. 
In the Lower Grades, the combination of 
Color and Sound provides maximum 
attention span, and is EASY to Program 
on the OOCo. In the later Grades, the 
Color Computer provides the Advanced 
Operating Systems and Programming 
Languages that can allow a student to 
move into a College Situation and 
concentrate on CONCEPTS, rather than 
learning "how to use the computer". 

The ma joe hold-up in the Color 
Computers emergence as a MAJOR 
Educational Tool is the shortage of 
GOOD Software. If you look at the 
emergence of Software for the 
comparable Computer systems (i.e.. 
Atari. Apple, Commodore - the little IT 
is not even in the same league), you 
will see that the first 'thrust' of the 
Software was towards Games. This 
happens for a couple of reasons ; first, 
that is tine "quick buck" Market and 
provides both the Computer Programmer 
and Computer User a means of becoming 
familiar with the machine; and, second, 
it allows Programmers to develop 
techniques and skills to be used as a 
basis for writing good 'Working' 
Software. We are now beginning to see 
3 ame results from these experiences in 
some of the CoCo Software. All of this 
Software is applicable to the "Computer 
Education" area; i.e., the Computer 
User uses it to learn more about HIS 
Computer, and Computers in general. 

The REAL lack of GOOD Software in is 
the "Formal Education* area . There 
are a few good programs, mostly in. the 
below 7 year old area, but there the 
Software dies. Not only is this area 
weak on the Color Computer, but it is 
no better with AHY of the small 
Computers. The problem in not so much 
that the Software in not available; it 
is that the BASIC O0K3PTS a*e wrongl 
The use of the Computer in Formal 
Education requires DIFFERENT methods 
and concepts than the old, established, 
"book learning* methods. New 
techniques for instruction are 
required, along with new classroom 
concepts, different teaching methods, 
etc. How many of your childrens 1 
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schools "Have a Cfcroputer"?? Hell, how 

many USE JUST OB typewriter for a 
typing class? See what I mean. Itot 
only that, but moat school 
administrator* can not ewn grasp the 
concept that a Program for an Apple 
will not run on a Color Computer* 
After all, a Computer is a Computer. 
Right? 

Even though there is a REAL need 
for a MAJOR OVERHAUL in the 
Educational System, and, the Computer 
appears to provide MANY of the 
answers, it will take a Long time to 
overcome the inertia of the "present 
system" . Most of you reading this can 
begin to make some inroads in these 
areas through worfc with StAool Groups, 
such as the PTA, by offering your 
"expertise", and RECO>«aff>rHG the Radio 
Shack Color Computer- You can put a 
half dozen CoCos in a classroom for ONE 
Apple, and give up WHAT? Sure, there 
is a lot of Software for the Apple, but 
is it any better than the little bit 
^valiable for the CoCo? HOI m feet, 
as I mentioned earlier, there is very 
little VALID Software available for AWf 
of the computers* Most of the 
Computers in a School are used either 
to keep kids "out of the way", or as a 
"candy bar" for doing something right. 
VERY SELDOM is a personal Oonputer put 
to any good use in a School- Think 
about YOUR situation, and let us know 
YOUR thoughts on the matter. 

We will pursue this matter as time 
goes on. Again, let us know your 
thinking, whether you are a E%rent, a 
Software Developer, a Teacher, or what 
ever; LETTS HEAR FROM YOUl 

RLN, Editor 
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Here is a useful utility, LETTERS, 

that I wish you to consider for 
possible publication. I am 15 years 
old and I nave owned! my Color Computer 
for two and half years- I enjoy using 
the graphic and sound capabilities of 
the Color Computer, and I have written 
LETTERS to be an aid in doing so. 

LETTERS is designed to provide text 
symbols on the graphic screen without 
the time-consuming chore of drawing 
each individual one. It is not 
designed to replace the text screen, 
but to make it easier to use labels 
and prompts for jour hi-res games and 
graphic displays. 

I have included in LETTERS almost 
all of the Keyboard Symbols available. 
The 26 letters correspond to a 
variable named the same as the letter. 
For e sampler to draw the letter 'A' 
type DRMT AA$. The letter l X' would be 

The numbers are drawn in a 
different way. For example: to draw 
the number '5' type DRAW 8$<5). Tlxs N 
stands for number and the number in 
parenthesis is the number you want to 
draw* The numbers range from W9. 
To draw a larger number such as '29' 
type DBHf B$(2>«$(9). 

Here is a list of symbols that have 
more than one letter fcr a variable. 

+• PLUS? 

MINUS? 



x (TIMES) 


MULT? 


DIVISION SIGN 


DIVIS 


■ 


equal; 


1 


EXOAIM$ 


* 


QUOTES 


* 


NUMBERS 


f 


DOLLAR? 


• 


APC69 


% 


PKE7TS 


( 


LPARENS 


) 


RFAREN5 


- 


DASHS 


r 


CCMMA$ 


/ 


SLASH? 


< 


L1HAN? 


> 


GIHAH 


i 


SEMI$ 


| 


CLON 


f 


CMARKS 


UP ARROW 


ARRCWS 


UNDERLINE 


ULINE? 


t 


PERIOD? 



SPACE 



If you wanted to draw something on 
the graphic screen, here is an example 
of what i©u wouW enters 

10 PMDDE 4jPCLS:SCREEN 1,1 
20 DRAW "BM0, lOT ,, +Lt^EE$+ , TT5+'rT 
S+EES+RRS+SS$-»-SPS+SP$ 
30 DRAW AS+DASH$*ZZ$+SPS-f«$(l>+D 
ASH?+«S(9) 
40 GOTO W 

The result the graphic screen would 
look lDce this: 

LETTERS A-Z 1-9 

Here is a description of each Line: 

LING 10s Sets the praode, clears the 
graphic screen and sets the color 
mode. These can be whatever you want 
them to be . of course* the symbols 
look best in PMODE 4, since it is the 
highest resolution. 



LINE 20= Starts to DRAW at location 0, 
100 on th* graphic screen. The is 
the horizontal coordinate, and 100 is 
the vertical coordinate. These can 
also be whatever you wish. Then it 
draws the word LETTERS and two spa c es 
following it. 

LINE 305 Draws the letters 'A-Z' and 
the numbers 'l-9»' 

LIME 4-0: It keeps going back to 
itself, and it will keep the program in 
an endless loop to keep the graphics 
on the screen. It can be stopped by 
pressing the BREAK Key. 

Be sure that there are no variables 
in your program that have the same 
variable names as the ones used in 
LETTERS. This will cause undesired 
results in your program. I have used 
double variables such as BB$ and ZZ? 
to keep them from getting confused 
from variables such as B$ and Z$. Co 
the longer variable names, such as 
EQUAL?, the computer only uses the 
first two letters - EQ$, 90 be sure no 
other variables in your program have 
even the first 2 letters of a variable 
the same. If you want to use 
shortened variables, that will work 
fine; I have used longer variables to 
keep the program organized. 

Us© LETTERS as a subroutine at the 
end of you program. The first or 
second line of your program should 
GOSUB to that routine and then RETURN. 
All the variables will be defined, and 
you will not need to go back to that 
routine again. 

I hope LETTERS will make it easier 
to provide text on the graphic screen. 
Many times I have avoided putting text 
in my graphic programs because it was 
too difficult ■ It ia now much easier 
with this utility. This program can be 
modified to suit you needs, or used as 
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a sub-routine in jour programs; even 
ones J*** ***h to ecj#ri#it. I just ask 
that you simply mention in REM 
statements* or in you title fioreen, 
where you took it from (this is 
standard procedure for any Published 
information - Editor). I hope you 
enjoy uevnvsi 



*•* 



10 ■*** LETTERS 

20 '*** BY PETER STOMPP 

50 OJ2AR 1000 

60 DIPW$(lS) 

70 GOSUB 2080 

710 '***DRAW TtTL£ SCREEN*** 

720 EMXE4 ( ltPCLSiSCFEENl,l 

730 GOSUB820:QDSUB940 

740 SCREEH1,0;GQ6UB940 

750 PM0DE3,1:FXS:SCREQU,1 

760 GOSUB820:QOSULJ940 

770 SCFEEN1,0:GO6UB940 

780 PM0DE1,1:PCLS:SCKEEN1,1 

790 GOSUBft20!O36UB940 

900 SCREEN1, 3 

S10 GOSUB940s«7TC>720 

820 DRHTBM40I 4(B12"-*Ui$+ffi$+Tr$ 

tTT$+EE$+RR$+SSS 

830 DRAW *BM44i 40 ,, *JL$-HJIj$+UL$+U 

L$+UL$4UL$ 

840 DPflWBM102 f 65S8"4BB$+YY5 

850 ORMCBM35, 90 n +PP$+EE$-HrT$+EE 

?+RR5+SP?+SS$!+TrS+UUS-W(?-t-PP$+FF 

$ 

860 DRAW BM0, 120"+AAS+fiB$-KX^tDD 

S+EES+FF?+<KS+HHS*IT$«J$-HQX$ + ^ 

S*MMS 

870 DRAW tti?+00$+PP$4QQ$+RR$ 
890 DRAWBMa, L40 ,, 45SS4TT$+UU9+W 

890 DRAW EX$+OJ$«W$+D0^Pft$+ftP$ 

+L^S*RP$+EQ5+DA5 

900 DRWBM54, 160"+AR$+PL$*SES*C 

L$4tT^4<n i $4CO^PE$4CMS+SL$ 

910 DRAW"'BK50, ia3 M +N$(l)+N$(2)+N 

S(3)+«5(4)-«lS(5)*NS(6)+N5{7) 

920 DRAW K$(8)-WJ$(9HU$(a) 



930 RETURN 

940 FORX-1TO1000INEXT 

950 RETURN 

2070 , *"INITILIZE UTTERS*** 

2380 SP$= M BR5- 

2090 AA$""BR3U4E2F2D2£j4R4t>2 H 

2100 BBS="BR3R3UU6R3FDOL3R3FDGB 

R" 

2110 CC5="BR3BUFR3L3HU4ER3BD6" 

2120 DOS-"BR3R3L3U6R3FD4GBR" 

2130 EE?=»"ER3R4WU3R3L3U3R4BD6" 

2140 FFS-"BR31T3R3L3U3R4BD6BL H 

2150 QG5="BR3BUFR2EUHLBL2D2U4E2l3 

BRBD6" 

2160 HHS S "BR3U6D3R4U3D6" 
2170 H$■• , BR3R4L2U6L2R4BD6 , ■ 

2190 JJ$=»"BR3BUFR2EU5BD6" 

2190 KK?="BR3U^03RE3G3P3" 

2200 LL5="BR3BU6D6R4EL" 

2210 h-W$-"BR3u6F2E2D6" 

2220 M«5- ,, BR3U6DF2F2DU6BD6" 

2230 a^^■'BR3BULI4ER2FD4GL2HF , BR^' , 

2240 PP$■"BR3l>6R3FD3L2BD3BR3 , ' 

2250 QQ^ ,, BR3BUU4ER2FD4GL2HFR2EH 

F2BL" 

2260 RR$="BH306R3FDGL3R2F2D" 

2270 SS^ , 'BR3BuTR2EUHL2HIJER2f*BD5 

■ 

2280 Tr$="BR3BU6R4L2D6BE2 
2290 UU$="BR3BU6D5FR2EU5BD6• , 
2300 WS- n BR3BU6D2FD2FEU2EU2BD6" 
23L0 WH5- H BR3BU6D6E2F2U6BI>6" 
2320 XX$="BR3UE4UBL4DF4D" 
2330 YY$-"BR3BU5UDF2E2UDG2D3BR" 
2340 ZZ$*"BR3BU6R4DG4D1R4 

2350 ***INITn-rZE OTHER SYMBOLS* 

■ 

2360 PUS$-"BR5BW4D2L2R4BRBD3" 

2370 MINUS$= M BR5BU3R4BI>3 

2380 MJLT$-"BR5BUE3BI3F3BI£DBR2" 

2390 DIVl$-"BR5BU3R4L2BUUB03CeR2 

BD1- 

2400 EaUAL$="BR5BU3R4BUL4R4BD4" 

2410 EXCUUM^"BR3BR2UBU2U4BR2BD 

2420 OXn , ES="BR3BRBU4U2aR2D2BR2a 



D6" 

2430 HUMBERS="BR3Bll2U4BR2D4URii4B 

U2R4BD5BR2'' 

2440 DOLiAR$»"BRBU2R4U2L4U2R4L2U 

D6BR3BD" 

2450 PRCENT3- H BR3BU6DRUBR3G5BR3U 

REBRBir 

2460 APCSS="BR3BRBJJ6UDS8R3E1D5" 

2470 LPAREN5="BR5eUHU4EBR2BD6 

2480 ■RPAREN5="BR5EU4HBR2BD6 

2490 IASH$-"BR3Bi;3R4BD3' a 

2500 CCM<ft$="BR3BKUDGBR3" 

2510 PERI0DS-"BR3U1»R4" 

2520 SLASH$="BR3UEU2EUBD6 

2530 L!PHAN$="BR3BU3P3H3E3BD6BR M 

2540 CTIAN5= M BR3BR4BU3G3E3H3BD6B 

R4" 

2550 CXCN$-''BR3BRBUUB^7JBD4BR2 , ' 

2560 SEMI$="BR3EUBUUBD4BR2" 

2570 CMARK$* M BR3BR2UBUU2REUHL2GB 

D5BR4" 

2580 ARR0W?="BR3BR2U6G2R4H2BD6BR 

2" 

2590 ULtME$-"BR0BDlR8BUl 

2600 '***INITIALIZE bKMBERS*** 

2610 N$(1>-"BR3BR2R4L2U6G2BD4BR3 

M 

2620 N$(2)»"BR3R4b4U2ElR2ElUlHlIj 

2GlBD5aR4" 

2630 N?(3)-"BR3BU1P1R2E1U1H1L1R1 

E1U1H1L2G1BD5BR4" 

2640 NS(4)="BF6U6G3R4flD3" 

2650 MS(5)="BR3BU1F1R2E1U1H1L2H1 

U2R4B06" 

2660 M?(6)-"BIOBUPR2EUHL2GDU4ER2 

FBD5" 

2670 N5(7)-"BR3UlE3y2L4DlB05BR3 

2660 H5C8)-"BR3BR1R2E1U1H1L2G1T>1 

F1H1U1E1H1U1E1R2F1D1G1F1D1BD1" 

2690 MS(9)-"BR3BU1F1R2E1U4H1L2G1 

D1F1R3BD3" 

2700 M$(0)- , 'BR3BUPR2EU4HL2GD4E4B 

D5 

2710 RETURN 

Pstar Stuwxf 
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COLOR TUTOR review 



Elite Software 

Box 11224 
Pittsburg, PA 15238 

1GK Ext. QK3IC 
Tape - $19.95; Disk - 22.95 

Learning is not a gift. Learning is a 
habit of employing certain skills necessary 
to retain information. Students who appear 
to have an easy time mastering their studies 
will tell you that the secret is having good 
study habits (SKILLS). Time spent "by 
students with good study habits is well used 
time. Many students complain that the 
material or subject of study was very hard 
to learn, even after hours of trying to 
learn it. On the other hand some students 
will report that had they no unusual 
complications of learning their subject even 
when they spent much less time at study. 
Spending twenty minutes to study (employing 
good study habits) will allow a student to 
follow the material and retain it better 
than a student (who has not developed good 
study habits) who has spent two hours 
studying. 

COLOR TUTOR by JOHN WACLO is not going 
to give a person good study skills 
overnight, but it will guide a person 
through a subject matter in a uniform 
manner that will will begin to pay dividends 
from the very start. Using cor .OR TUTOR is 
easy and repetitive. OQuOR TUTOR provides a 
skeletal structure by which study material 
can be entered into a computer, edited, and 
saved on either disk or tape (depending on 
which version you need). I will restrict my 

remarks to the DisK Version, although the 

Tape version is exactly the same. 

Once you have inserted your COLOR TUTOR 
disk into the machine and powered up, merely 
type: 

PUNTUTOR* 
A menu will appear on the screen as 
follows * 

1- TYPE NO* IfSSON 

2. LOAD IJSSON FBOM DISK 

3. fiDrr LESSOR FROM DISK 

4. SAVE U3S30ZJ OH Dia 

5. STUDY LESSON 

6. HOT LESSON 

When selecting #1, you will be prompted 

with: 

HDW MANY QUESTIONS DO YOU HAVE? 

At this time you enter the number of 
questions you desire {a maximum of 50 
questions are allowed for one lesson). This 

will be followed by: 

TYPE QUESTION li 

A question mark is automatically entered for 
you after each question is typed. After 
typing in the question, you will be asked to 
type in the answer to question #1 . This 
will continue until you have typed in the I 
pre -selected number of questions and I 
answers. If a 16K machine is being used, I 
restriction to 32 characters (64 on 32K I 
machines) for each question is recommended. 
The program then returns to the main menu. 
If a person has already entered a list of I 

questions and answers, then selecting #2 | 

will call that data in from the disk by | 

asking for the: | 

FTLENAJC | 

Once the data has been loaded into memory, j 
the main menu will reappear for you to make j 
a selection. j 

If the need arises to change a question 
or answer because of a typographical error, | 
using #3 (EDIT LESSON" MATERIAL) will ask j 

which question or answer you want to I 
change, by number. A nice feature to this j 



longer than 8 characters, and with the disk 

version a 3 character extension can be 

ali^l to fcho fi ". o ::.-. mo. Pr-aooin-g "ENTER" 
will then save the lesson on disk and return 
to the main menu. 

Finally, when you are ready to study the 

lesson, selection #5 is entered. The 
questions will be randomized. You will be 
asked if you want all spelling checked? If 
you answer Y, then the answer must match 
exactly with the answer stored in memory. 
Selecting N will count an answer correct if 
the first three characters match. Upon 
corpletion of this section, you will be asked 
if you wish to go through the questions 
again; if not, you are returned to the main 
menu. 

COLOR TUTOR is a great program for 
students. COLOR TUTOR aids in subjects 
like Language, Sciences, Social Studies, 
History, Math and Vocabulary drills. COLOR 
TUTOR can be utilized by students from the 
third grade all the way to college students. 
This program receives my grade of "A". To 
have the ability to recall any lesson at any 
time is a feature of great value to any 

student. COLOR TUTOR allows a student to 
save lessons that can be reviewed again 
later to brush-up on certain subjects 
before test time. COLOR TUTOR is flexible 
and versatile (well worth the money). COLOR 
TUTOR helps students begin to develop good 
study habits by helping them to learn how 
ask the right questions* and will reinforce 
their memory by randomly requiring the 
proper answer to each question. COLOR 
TUTOR requires a student to concentrate on 
the study material before him. COLOR TUTOR 
is truly a self-educational program. If you 
have a student in your family, or are 
yourself a student, this program is a must. 

I have had a hard time using the word 
student throughout this review- I keep 

thinking about teachers. How can this 

program "help Teachers? While this program 

is well done, I will be discussing the 
possibility of adding one more feature bo 

COLOR TUTOR with John. An option to allow 
the questions and answers to be sent to a 
printer would make COLOR TUTOR one of the 
most well-rounded pieces of educational 
software available on the market. COLOR 
TUTOR is already powerful, versatile and 
useful. The inclusion of a print feature 
would open an additional world of potential 
users. Eragine what a print option could do 
for a teacher's lesson planning and test 
preparation . 

Larry E. Williams 
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program is that when selecting #3, a 
password must be entered. This keeps 
unauthorized editing of a lesson to a 



■inimum. Options for continuation of editing ■ 
or returning to the main menu are given ! 
■fter each question is edited. j 

To save a lesson on disk, you would j 
■elect #4 (SAVE LESSON ON DLSK), which will J 
•8k you for a filename for the lesson to be j 
■aved. The filename selected can not be J 

Color Micro Journal ' 
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BASICS 

ABOUT DISK SYSTEMS 



Answers to BffilflNERS Questions 
about Disk Systems 

After purchasing the ooroputer, the 
next big decision facing the Gamputer 
Owner is whether or not to go into 
Disk Operations. CoCo owners will 
probably spend more on the first Disk 
Drive than the computer cost 
originally- Of course, you can put 
some pretty big money into Software, 
but even then the question loans as to 
whether you should get an expensive 
piece of software for a Cassette System 
with the possibility of obsoleting it i£ 
you get a Disk System. When you are 
first considering the purchase of a 
Disk System, there are a multitude of 
questions that need answering. This 
article is aimed at providing some of 
the answers - 

You may wonder why you should even 
consider going to DisK. True* Tape 
works fine with small programs,, small 
data files, etc. But, when you start 
getting into more serious applications, 
you are usually dealing with large, 
sophisticated programs which do not fit 
into memory. These programs can be 



0S-9* SOFTWARE 



SYSTEM UTILITIES AND 
APPLICATION PROGRAMS 
FOR USE WITH THE OS-9 
OPERATING SYSTEM. 
PROGRAMS DEVELOPED ON 
LARGER 0S-9 SYSTEMS NOW 
BEING TRANSPORTED TO 
THE COCO. SEND A SELF- 
ADDRESSED STAMPED 
BUSINESS SIZE ENVELOPE 
FOR THE LATEST DETAILED 
LISTING. 



D.P. Johnson 

7655 S.W. Cedarcresl St. 

Portland, OR 97223 

" OS B is a Irademafh af Micrawiire ana Uoloioiii inc 
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PRNTDUMP 

BASIC 

by 
Jeff Euton 

Here's a short Extended Basic 
Program for the CoCo that might "be of 
interest to other CoCO fans- The 
routine converts Coco pmcoe3 Graphics 
Mesory to serial data in a format 
compatible with the Integral Data 
Systems IDS440 Paper Tiger Printer for 
b it-mapped black & white hard copy. 
Since Dataproducts Corp- just acquired 
IDS, we should continue to see Paper 
Tigers around for a \A*iile. 

The program aUcws the operator to 
select which colore get printed as 
black, (and which colors get printed aa 
white) by entry of values for each of 
the 4 possible colors of PMODE3 (C0- 
C3). For example, with a PM0DE3 
screen in Color Set 0, we could print 
yellow, red &i*3 blue as blaek (with the 
green background printed as **u.te) by 
selecting C0=4, a-1, C2=2, C3=3. The 
non-printing (white) color code is thus 
set to a value >3, ufcile the printable 
(black) color codeCs) are set to their 
associated values. There's a little 
more explanation in the program display 
while the operator is prompted for the 
color code entries. 

Other Points Of interest 

* Line 16 - Color and Screen 
Statements can be changed as 
required 

* Line lfi - serial printer bit-rate can 

be changed as required 




QOQ 



B5'S 



$e 



KEYBOARDS 



!■;■ ■!■■!■!! 



■vim minimi 
□lniDlDilioiDppn 
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KFTBOARD HELPS FAMILIARIZE CHILDREN WITH THE LOCATION OF 
COMPUTER Ktri, THE GRAPHIC KEYBOARD ENABLES THE USER TO 
PINO KEYS QUICKLY. HOME KEYS ARE IDENTIFIED AND PROPER FIN- 
GERING MAY BE TAUGHT TO OLDER CHILDREN. LES&0N& A*E BUILT 
AROUND ALPHABET PRESENTATIONS AND LETTER DRILLS WITH A 
GRAPHIC REWARD COMPLETING EACH LESSON. WHILE TOUNO CHIL- 
DREN ENJOY (CETBOARO-S LETTER RECOGNITION ACTIVITIES, ADULTS 
MAY BRUSH UP ON RUSTY TYPrNfr SKILLS. THE MK VERSION HAS 
LENGTHIER TIMED DRILLS. DATA TAPi USE IS OPTIONAL WITH BOTH 
UK AND 12K VERSIONS. ANY DATA TAPE MADE FOR 65*5 SPELLING 
OR HAN.GI0RD/SCRAM6LE PROGRAMS MAY BE USED II TH KEYBOARD, 
OR USE KEYBOARD PHONIC DRILL OATA TAPE. (SEE BELOW) 
Itt diwttv - IW.W / M« C-.-m. - U4.W / W Di*k . 136*5 



* Line 30 - defaults to Disk System 

Graphics Page 1 starting at S3e0<5; 
this can be changed to 50600 for 
non-Disk Systans 

* Line 65 - 'vitamin* Poke can be 
removed for systems that can't 
handle it 

w Algorithm could be modified for 
PMODE4 by changing the horizontal 
screen resolution (lines 50-110) and 
the printer horiz resolution (lines 
260-300) 

* The extended basic routine is pretty 

slow (be patient), maybe a machine 
code equivalent someday... 



2 'COCOTIGR.BAS COCO GRAPHICS P 
RJJnT DRIVER FOR IDS PAPER TIGER 
PRINTER 

3 CLSi PrTJ^'CcOlVTIGER GRAPHICS 
PRINT DRIVER": PRINT" COPYRKH 

T 1983 JEFF EUTON "iPRINTs PRINT" 
CODDR CODES 0-3"iPRINr"GRN YEL B 
LU RED/BUF CYN 
MAC QRG": PRINT 

4 PRIWTEOTER CORRESPONDING VALTJ 
ES FOR COLOR CODES TO BE PRINTED 

(C0-fl, Cl-1, C2=2, C3=3) ELSE 
VALUE > 3 FOR NON-PRINT COLORS" 
6 INPUT-CO » "?C0 
8 INPUrCl - "jCl 
10 INPUT-C2 = ";C2 
12 INPUT"C3 = ";C3 
16 PMODE3, lsCOLORl^iSCREENl.B ' 
LET'S SEE WHAT WE'RE PRINTING 
18 POKE 150 r 41 '1200 BAUD RS232 
PRINTER 

20 PPJNTt-2,CHRS(3) r ' GRAPHICS 
MODE 

30 M=&H0E00 'START OF GRAPHICS M 
EM <WJTK DISK 
40 FOR V=l TO 32 '192 VERT LINES 

OF 6 1JMES/SET 
50 FDR H>1 TO 32 "128 TORZ BYTES 

OF 4 DIBITS/BYTE 
60 FOR DIBIT=1 TO 4 '4 DIBITS PE 
R BYTE 

65 POKE 65495.0 'SPEEDUP 
70 IF DIBIT-! THEN MASK=&HC0 'MS 
B DIBIT 

90 IF DIBIT-2 THEN MASK-SH30 'NS 
B DIBIT 

100 if dibit-3 then mask-&h0c *n 

SB DIBIT 

110 IF DIBIT-4 THEN MASK=£H03 'L 

SB DIBIT 

120 D-3 'START WITH UX PRINTER 

DATA BYTE 
130 B=PEEK(M):Q=B AND MASK 'MASK 

OUT ALL BUT CURRENT DIBIT 



KEYBOARD PUnic D.,11 Dafo Tap* 



tt.95 



INTEGRATC LC ARMING "ITH y« OF TBI* 6*T* TAPE ANO *l*BOARO 
■ BOGHAM. STUDENT! TYM LBTTIR. WORD. AND JENTEHCE 0R1LL1 
USING CONNON VOWEL AND CCwSO^aMT COUHHATIOHt REINFORCE 
PHONIC 1TRUCTURES "NILE LCARHMO THE KEYBOARD. NUiYOB 

used nm kctwa*o p«->g«a« iasovii. -av mot be u&cb alone. 

For u*e with TftS-80 Color Computer* & TDP-IOO' 

with Exwnded Basit 
ASK FOR DEALER DEMONSTRATION TODAY? 

•R.-j*. rtaSr'mark T-mrfv Carp, 

II unavailable locally, 
order direct 
re* b„. , . ■ 

ih% i*l-. Tail 



ftracftur* d»ienbi«g otha; Fma 
B5pr*4roaik availakl* upan rvawait. 

B 5 Software 

1024 BalnbrldB* PI •Colun*u», Ohio 43228 •(814) 276-2752 



135 GOSUB 1000 'SEJJCT PRTNTABliS 

color(s) 

140 if p-l then dhd or 1 'set pr 
inter data bit if reo'd 

150 b=peek(m+32)ib=b and mask "g 
et dibit from nxt vert line 
155 qqsub 1000 "select printable 

COLORS 
160 IF P-l THEN D-D OR 2 'SET NX 
T PRINT DATA BIT IF REQ'D 
170 B=PEEK(M+64):B-B AND MASK 
175 GOSUB 1000 
180 IF P=l THEN D=D OR 4 
190 B=PEEK(M4-96);B-B AND MASK 
195 OQSUB 1000 
200 IF P-l THEN D=D OR 3 
210 B=PEEK(M+128)sB-B AND MASK 
215 GOSUB 1000 
220 IF P-l THEN D=D OR &H10 
230 B=PEEK(M+-163):B=B AND MASK ' 
RETAIN DIBIT FROM 61H VERT LINE 
235 GOSUB 1000 'SELECT PRINTABLE 

COLCR<S) 
240 IF P=l THEN D-D OR &H20 'SET 

HI-ORDER PRINT DATA BIT IF REQ* 
D 

250 'NOTE THAT IDS PRINTER DOESN 
'T USE 2 HI-BITS OF 8-^IT CHAR 
255 POKE $5494,0 'NOBM&L SPEED F 
OR PRINTING 

260 PRINT*-2,CHR$<D);CHR$CD); *P 
MODE 3=HALF HORIZ RESOLUTICN 
265 IF D»3 THEN PRINT*-2,CHRS<3) 
rCHRS(3); 'DBBL ETX 'CAUSE IDS D 

ROPS 1 

270 NEXT DIBIT 'PROCEED TO NXT 2 
BITS OF SAME BYTE 
280 M»*H-1 'NEXT HORTZ BYTE OF 4 
DIBITS 

290 NEXT H 'NEXT MEM LOCATION 
300 PRINTt-2,CHRS<3hCHR$(&HB); 
'ETX,VI^PRINT GRAFX LINE 
310 M=M+160 'NEXT VERT SET OF t 
LINES *v 

320 NEXT V 'BMP MEM POIOTER 6 LI- 
NES <32 BYTES/LINE) 

330 PRJNT#-2,CHRS<3)lCHR$(2)3CHR, 

${&HC) ■ EXIT GRAPHICS, FF # CR .- ' 
340 STOP 

1000 P-OiIF DIBIT-4 THEN IF B«C0 
OR B=<:i OR B=C2 OR B=C3 THEN P" 
1 

1010 IF DIBIT*3 THEN A=B/4iIF A« 
C0 OR A-Cl OR A=C2 OR A-C3 THEN 

psl 

1020 IF DIBIT>2 THEN Af»B/l6xIF A 
=C0 OR A>C1 OR A-C2 OR A=C3 THEN 

P-l 
1030 IF DIBIT=1 THEN A=B/64sIF A 
<^ OR A=C1 OR A=C2 OR A=C3 THEN 

P=»l 
1040 RETURN 'SHIFT DIBITS TO LSB 
& CHK SELBCTED COU>R(S) 
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Color Micro Journal 



CoCo HEADQUARTERS 

Looking to unlock the capacity of your Color Computer? 

Search no more 



TOLL FREE 
1 800-251-5008 




SPECIALS 




1.1 Extended Basic w/bk $ 
64k Memory Upgrade $ 
RS 1.1 Disk Controller S 

1.2 Color Basic Rom $ 
Amdek Disk Drives $ 
26-3022 CoCo Drive $ 
26-3029 CoCo 2 Drive S 
26-3023 Drive 1 S 
Super Pro Keyboard Kit S 
26-3016 RS Keyboard kit $ 



69.95 

59.95 

149.95 

29.95 

499.95 

349.95 

349.95 

239.95 

64.95 

34.95 



26-3026 Color Computer 2 16k 
26-3026E Extended CoCo 2 16k 
26-3003 64k Extended CoCo 
26-3011 MC-10 CoCo 
26-1261 TP-10 Thermal Printer 
26-1192 CGP-115 Printer/Plotter 
c. Itoh Banana Serial 50 cps 
C. Itoh Prowriter 8510 (par) 
26-1268 CGP-220 Color Jet Ptr. 
26-3024 RS Multi-Pac Interface 



S 
$ 
S 

s 

$ 
$ 
s 
s 

5 
$ 



149.95 
224.95 
329.95 
CALL 
89.95 
179.95 
249.95 
399.95 
639.95 
149.95 



ACCESSORIES 



» ov.-n 
$ 129.95 
S 179.95 
$ 239.95 
S 449.95 
Hayes/USR/Banana cables $ 19.95 



RS D.C. Modem tb 
Novation J-Cat Modem 
RS D.C. Modem II 
Hayes SM 300 Modem 
USR Password 300/1200 



Clephant Disks ssdd 5 
Verbatim Disks ssdd S 
Kraft Joystick $ 

CoCo Switcher $ 

26-3020 4 pin DIN cable $ 
Botek ser/par Interface S 



22.95 

27.95 
39.95 
39.95 
S.29 
69.95 



0S-9 (req. 64k) 

Basic -09 (req. OS-9) 

Color Logo 

MSI Diskutil 

MSI Maillist 

MSI Color Finance 

Elite-Calc 

Colorcom/E 



SOFTWARE & BOOKS 

S 64.95 (Disk) Color Computer Graphics $ 



$ 

$ 

$ 
$ 

$ 

$ 
s 



5.95 
6.95 
9.95 

9.95 
14.95 
29.95 

34.95 (C 
34.95 <C 



& D) 

or D) 



S 89.95 (Disk) CoCo Assembly Prog. 
$ 44.95 (Rom) CoCo Programs 
$ 19.95 (Disk) 101 CoCo Programs 
$ 24.95 (Disk) Programming the 6809 
$ 49.95 (Disk) Basic Faster and Better 
$ 44,95 (C or D Pooyan by Konami (32k) 
$ 49.95 (Disk) Sea Dragon (32k) 

************************************ ** *************** *********** 

I tJLL Call for prices and availability of your other favorite software |^/LL 
pope All advertised items subject to availability FRFF 

Prices do not include shipping & handlino 

TENNESSEE 

FACTORY DIRECT 

PURE RADIO SHACK EQUIPMENT 

'THE COCO PROFESSIONALS" 



1-800-251-5008 



1-800-545-2502 



All of the above units covered by our 1 20 
day carry in warranty. 



TR5-80 Trademark Tandy Corporation. 
Prices subject to change without notice. 

Write for our FREE newsletter! 



^S^ 




MaVp<Ca«f*]l 


^^^^ ^^^^ J 




DELKER ELECTRONICS, INC. 
P.O. BOX 897 DEPT D 
SMYRNA, TN 37167 
800-251-5008 
800-545-2502 (TENNESSEE) 
615-459-2636 (TENNESSEE 
615-254-0088 (NASHVILLE 
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DISK QUESTIONS 



OMtlHMd tzcm tmy* 27 

arranged so that you call only the part 
you need at the moment into raw £mto 
tape or disk. With a Tape System, this 
takea minutes, where with Disk f it 
takes only seconds. The same thing is 
true of data storage,, only more so, 
because data files can become much 
larger than the programs that generate 
them. 

Cassette Tapes must be searched 
sequentially - from one end to the 
other- Disks are accessed randomly - 
the head will go to the proper place in 
a split second, and get or put the 
desired information. Also, Tapes read 
or write a LOT more slowly* even after 
the proper location is found- With 
Tape, you need to do a lot of manual 
shifting of the controls and cassettes.. 
With Disk, most of this is automatic. 
And, the more sophisticated the Disk 
Operating System, the more automatic it 
is, and the more things you can do with 
it. 



QmHfiB and Answers 



Let's say I have decided to buy a disk 
system. Do I understand correctly 

that I need a Controller Board and 
Software* as well as the Disk drive (or 
Drives) to make up a Disk System? 

Yes- The Controller plugs into the 
Cartridge Slot, and a cable goes from 
there out to the Drives. The 
Controller is normally Only a Hardware 
item, but for the Color Computer, there 
is also Software in the controller; the 
DISK BASIC RDM. 

DISK BASIC? Is that a replacement for 
BASIC? 

No, it adds more capability to the 
BASIC that i* already in the CoCo. "ftsu 
are using BASIC plus EXTENDED BASIC 



COLOR COPY 

COICOPY is h manu driven copy utility that 
cople* data Bl«s or programs: dl?k to tops, t ape to 
disk or disk to disk It also kills files or programs, 

Many options are provided: copies basic pro- 
grams, machine language programs or data files, 
-allows selection by groups of filenames or exten- 
sions, individual files by menu selection, writes 
multiple copies of files to tape, backup a disk to 
tape, restore a disk from tape, copies files In 
alphabetic sequence and much more. 

Written in basic with machine language sub- 
routines. Includes program on cassette and 
instructions. 
Requires 32K, DOS. ONLY $15pp 



CASSETTE DIRECTORY 

REVISED! Displays hex addresses to printer or 
screen. Still only $2.50 or FREE with any product 
-ask 4cm- itl 

FREE CATALOG with order or send self addressed 
stamped envelope- 



Send check or money-order toe 

COCOPRO 

P.O. BOX 37022 

ST. LOUIS, MO 63141 

Fortae* ptld on all pt«-pjid ordm in US 
MlMeurl made na add 5 625 peter m win laa. 

DEALER INQUIRES INVITED 



plus the DISK BASIC. Also- there are 
the Disk Commands In the DCS, or the 
Disk Operating system. 

Is the RS Disk Controller the orily one 
that -works with the CoOo? 

Not necessarily. There are a few 
others being advertised, but ANY Disk 
Controller you use must be Color 
Computer COMPATIBLE. The F ft D 
Controller for the Color Oasputer Looks - 
GOOD. They supply a PC Board with, a 
Gold Plated edge connector, which uses 
a new Timing Chip that eliminates any 
adjustments- They can supply some of 
the "special" parts, but you roust be 
able to assemble and solder Digital 
Electronics to use this Controller (see 
Dec. CHJ for a full Review). So &r, 
just about anything that uses the 
Color Computer is using the RS Disk 
Controller. 

I understand that the Color Computer 
disk drives are 35 track. Will the 
controller actually handle 40 tracks? 

The RS (Microsoft) software is 
written to only support 35 Track, 
Single Sided Disk Drives, but the 
controller itself will work with 40 
tracks, m feet, the controller could 
care less . It has N3IHHK3 to do with 
how many tracks. It is the Software 
that determines that- We have a 
routine in the Data Corop FLEX(tm) 
Conversion that would FOFMAT a Disk 
with 2 55 traeks through the RS 
controller IP there were a drive that 
could read and write that many. 

Will the controller work with both 
Single and Double Density? 

Again* the controller will do either 
single or double density; it is the 
Software that determines which way it 
is to be done. For instance, in the 
FLEX (tra) System conversions for the 
CoOo, which uses the RS controller, you 
can use either Single or Double 
Density, where the RS system, using the 
same controller, is strictly Double 
Density. The Disk MOVE must be high 
enough quality to work Double Density, 
though. 

Of course, there are still acne System 
around that use only Single density. 
What is the difference between Single 
and Double Density? 

New technology has made it possible 
to build Controller Chips and Disk 
Drive Read/Write Heads that can handle 
the Data faster. This allows the Data 
to be written more compactly on the 
Disk Surface, providing about 90% more 
Data in the same amount of Disk space. 

Then, whether I wanted to use the RS 
Disk System, or sen* other Disk Drives, 
I would need the PS Controller board? 

As of right now, yes . And, if you 
get a 40 track drive, you can still use 
it with the RS Software, MD have the 
extra tracks available for use with 

some of the other Disk Operating 
Systems, such as FLEX, which can use 
the 40 tracks {this ALSO applies to 

the Double SIDED Drives). One 
advantage of the CoCo is that you can 

step your way up to a pretty 
sophisticated system this way. 

We're talking about 5 1/4 inch floppy 
disk systems. What about 8 inch? 

That is a whole different ballgame. 
The Data transfer rate for 8- Systems 
ia twice as fast as that of the 5 l/4" 
Systems. There are controllers that 
could handle both sizes, and possibly 



on the Color Ccnsputer, but now you are 
looking at $3000 or so and Hardware 
modifications to the Computer. The 
biggest problem is the Clock speed of 
the Color Computer; Radio Shack 
(actually, Microsoft) had to use sane 
'tricks' to get the Double Density on 
the 5 l/4" Systems (these 'tricks' 
cause a few problems for the CoCo 0&- 
9, also). 

How many disk drives will the RS 
controller handle? 

It has four Drive Select lines, so 
it can control 4 Disk Drives, you can 
use four RS Drives or, with proper 
software, you can use one of the Drive 

Select Lines to select Sides on Double 
Sided Drives (the FLEC Conversions use 
the Drive 3 Select Line, since THAT 
line on the Color Computer Disk 
Controller is the Side Select line on 
most of the newer Disk Drives). (You 
can't get a RS Double Sided Drive for 
the Color Computer, but other Drives 
are available with both Double Sided 
and 40 or 80 Track capacities.) If you 
use that one Control line for Side 
Select, you can have only three drives, 
but, with two Bides on each one, you 
get six Disk Surfaces compared to the 
maximum of four that ia available from 
RS. Again, the Software determines, 
within limits, how to use what is 
available. 

What other advantages are there to 
having Double Sided Drives? 

Host people are going to need more 
than ONE Single Sided Drive. Rather 
than pay two or three hundred dollars 
for another Disk Drive, you can get a 
Double Sided Drive for about a hundred, 
more* There Is a very short BASIC 
Program floating around {check the 
Bulletin Boards and Magazines) that 
will make the RS DOS think your Double 
Sided Drive is two Single Sided Drives, 
IP you have 64K RAH so that the Disk 
ROM can be changed. 

What are some reliable names in disk 
drives? 

One Qume Thinlines have been working 
very well. Tandon was good, but soma 
problems have shown up with the later 
units. The Teac Drives have given very 
little trouble, and there are other 
good Drives available. 

Where can I find a Controller and one 
of these good Drives? 

Data-Comp, as weLl as many other 
Disk Drive suppliers, would be more 
than happy to help out in that 
respect. 

Can you think of anything ELse I should 
know before I rush out and plunk down 
my cash? 

Just ASK QUESTIONS, and buy from 
someone with GOOD ANSWERS! If the 
supplier you are talking too uses the 
SAME Disk Drive* in $5,000 to $20,000 
Business Computer Systems, they should 
be good enough for the CoCo. 
Remember, there are GOOD prices, and 
there are CHEAP prices. Enough said II 

For more information, see the 
article by Dr. Bud Pass in the Sept* 
'83 issue of Color Micro Journal titled 
"Hoy CoCo Can't READ". 

Jim. LaJjone 
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You nave HEARD about FLEX(tm); now LEARN about FLEX. 
Subscribe to the '68* Micro Journal! 

You have HEARD about the power of the 6809 Computer Chip 

in your Color Computer; now LEARN how to use this power. 

Subscribe to the '68 1 Micro Journal! 

You have HEARD about the "Multi-User, Multi-Tasking" UNIX(tm) style 
Operating Systems (such as 0S-9(tm) and UhiFLEX(tm) ) ; now LEARN about them. 

Subscribe to the •68* Micro Journal! 

Your have HEARD about all the Software available for the 68xx Series Based 
Computer Systems? now LEARN about this Software AND the Computer Systems- 
Subscribe to the '68* Micro Journal! 






■68" Micro Journal provides INFc^MATION thru: 
Regular MONTHLY Columns like "FLEX Users Notes" by Ron Anderson, "OS-9 Users 
Notes" by Peter Dibble, *C Users Notes" by Norm Commo, "Color Users Notes" 

by Bob Nay, etc. 
Regular MONTHLY Features like the "Bit Bucket", Reviews, Articles, Programs, 
etc., covering Software Development, Business Use r Operating System 
operation, hints, etc. 

DGNT MISS A SINGLE ISSUE; SUBSCRIBE MOW 

SUBSCRIPTION RATES 



OK. PLEASE ENTER MY SUBSCRIPTION 

Bill My: Master Charge fj — VISA p 
Card* _ Exp. Date 



For Q 1-Year p 2 Years 

Enclosed: $ _ 



P 3 Years 



Name. 



USA 
1 Year $24.50, 1 Year 142.50, 3 Year 164.50 

•FOREIGN SURFACE Add $12*00 per Yaar to USA Price 
•FOREIGN AIRMAIL Add $36.00 per Year fo USA Price 

"CANADA 4 MEXICO Add $>,50 par Year, to USA Price 
Cash (USA) or drawn on a USA Bank! t I 



Street 
Clty_ 



State. 



Zip 



My^Computer Is:. 



SB Micro J6um*t 

5000 Ciiundn SnUVi Rd. 

Hlxion, TO 37343 
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1337 WEST 37th PLACE 
CHICAGO, ILLINOIS 60609 
(312)927-5510 
- TWX 910-221-4055 



GIMIX 2MHZ 6809 SYSTEMS CAN BE CONFIGURED TO RUN: 
Fl£t * 0S9 LEVEL ONE * UNIFLEX » 05^ LEVEL TIV0 

SINGLE USER -SYSTEMS nitd 56KB of static RAM 

MUiri USER SYSTEMS wHh 12J-512KB 04 ftalk RAM Bnd up 

YOUR 0IM1X SYSTEM CAN QRQW VYITN YOyB N€EDS 

CHOOSE FROM GIMIX 5'." OR B" FLOPPY DISK DRIVE 
SYSTEMS AMD WINCHESTER DRIVE SYSTEMS 
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